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BEGIN 
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SRR RRR RARER AERA AREA AREA AERA EAA AAA TAREE RARER AARNE ERATE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie hal i ee is FURNISHED UNDER A LICENSE AND MAY BE USED AND correo 
ONLY IN ACCORDANCE WITH THE TER 0 THE 
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i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- pepohat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


FOR THE USE OR RELIABILITY OF ITS 


DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL. 
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'++ 
i FACILITY: 
VAX/VMS Run-Time Library 


i ABSTRACT: 

This module contains routines which perform command qualifier parsing 
end enatyste for a set of qualifiers which select files based on 
information contained in the RMS control blocks. 


i ENVIRONMENT 
VAX/ VMS user mode 
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AUTHOR: Tamar Krichevsky, CREATION DATE: 29-Jun-1982 
(with acknowledgements to Marty Jack and BACKUP) 


i MODIFIED BY: 


v03-013 TSKO012 Mp Krichevky 19-Jul-1984 
Use the most c comp lete name when signaling Prvatia oygt ii tor 
value for the /EXCLUDE qualifier. In other words, if there 
is and resultant or expanded name string, use those, instead 
of the value on the command Line. 
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; 2 : 1! v03-012 TSKO0011 Tamar Krichevk 28-Mar-1984 3 
; 1! Check the return — from TPARSE, after it attempts to : 
3 , } parse the ro 9g 3" by the /BY OUNER qualifier. T the . 
3; «66 1 return status is SS$_NOSUCHID, then signal that -- instead of ; 
: ? : CLIS_INVQUALVAL. ; 
; & a 1 i v03-011 TSKO010 Tamar Kricheyky 5-Mar-1984 ; 
; 69> bee 7% Replace a call to CLEAN_UP, in LIBSQUAL_F UE <RATCH, with a ; 
; 98 1 } direct return to the calling routine. Th gvol ids referencing 3 
; 44 06 } } the varaible XAB_HOLDER 4 it is initial zed. : 
; 1! Also, pass back the appropriate value after the ans to th ; 
; %6 8 7 CONFIRM promot has Soon bualuated. prergsnet oan, ; 
Pe 72 1! v03-010 TSK0009 Tamar Krichevky 7=F eb-1984 : 
3 7 75 1! Make sure /BEFORE or /SINCE is spec itis ed wpenever any of ; 
7. 1! the time quet ities are given (/CREATED, PIRED... . 
3 75 Bee . 3 Ajo. | retrun 428 $_QUIPRO for all files Phd ont after 3 
: f Boos : } Zo s eas as response to a /CONFIRM prompt. : 
: 78 0078 1 | V03-009 LMP0140 L. Mark Pilant 24-Aug-1983 1:16 3 
: R it 44 : } Add support for alphanumeric vics. : 
: 81 0081 1 v03-008 TSK0008 Tamar Krichevky 14-Mar-83 ; 
; ; 00 § 1! Change addressing modes to lLongword relative to avoid 3 
: a Obe ! truncation errors when Linking with large images. : 
: 85 0085 1! vO3-007 TSk0007, Tamar, Krichevky 14-Mar-83 : 
; 86 Boss : Change ‘‘qdesc_byowner"’ reference to ‘‘qdesc_by_owner’’. : 
: 88 0088 1 | v03-006 Tsk0006 Tamar Krichevky 11-Mar-83 ; 
; ww 0089 1! By Popular és neue the /BYOWNER Y qualifier is changed e 3 
3; 090 1! Y_0 Also, fix logic so that the presence of t ; 
i ae 091 1! contr prompt arguement is only checked after it is y are 3 
: 35 84 : that it is needed. : 
> 9 0094 1! v03-005 TSK000S Tamar Krichev hy 11-FEB-83 : 
: 95 94 : Change the /UIC qualifier to /BYOWNER. : 
; 3 609? 1! v03-004 TSK0004 Tamar Krichevk 29-Dec-82 F 
; 98 098 1! Parse the file name passed | fo. preseum, FILE_MATCH and use 3 
3 99 1! the expanded name stri rf e resulfant name string has Fs 
: 100 1 1! not been defined (the f le! a, net been open), as the : 
: 13) : 1 ! canidate string for MATC ; 
: 108 198 1 v03-003 TSK0003 Tamar Krichevky 23-Nov-82 : 
: 104 1 1! General clean up and modification. Several people had 3 
3 6105 105 1! suggestions such as removing OWN storage, sreeing virtual 3 
: 9 ; $ : -_ the: changes: signalling RMS returns, etc. The following tists : 
: 108 1 1! - Re @ OWN torage, used for TPARSE, and replace it with ; 
; 109 1 1! act on routines to make these routines re-entra yf $ 
s 110 119 1! - Clean up PARSE_EXCL prec a little bit: fix some if statements, ; 
.: 39s 1:43 take out extra SPARS etc 3 
: ig 6 ! - Rep! ace me er mir son ° if statements in LEGAL ANSWER with : 
: 114 114 1! - Insert PSECT doc larettens to make the code PIC and sharable. ; 


K 12 
STE Oe Conan #8 uate HERCHMM SES, ISLE ad 


v03-001 TSK0001 Tamar Krichevsky 11-0ct-82 
Change the bit field names to match those in STARLET. To 
prevent potential duplicate declarations the format for Common 
ualifier Flags names is LIB$V_CQF_... 


. 118 1! - Return RMS file orrory instead of signal ing thes 

3 1} 1 } - ——— e nalled conditions to have the CLI fac lity code, 

: 14 118 1! - Add the tyesauis Fe END routine, which cleans “p the virtual 
2* 3 1 1! menor allocate by LIBSQUAL_FILE_PARSE and used by 

$ 1 ; : } } LIBSQUAL_FILE_MATCH. 

: 1 ; 1e2 1! v03-002 TSK0002 Tamar Krichevsky 8-NOV-82 
5 : Z : } ; Change logical expression from “IF stmt = 0°’ to ‘IF stmt EQL 0°’. 
: 125 125 1! 

‘> § 1 1! 

. 3 1 .s 

s 128 01 1! 

: 129 01 1! 


DOONAN 


12 
C FILE_QUA Common file qualifier 18-$e 1984 02:23:4 AX-11 Bliss-32 V4.0-74 
vou000 ’ 1 =3007 1382 9G: 2:35 UYMSLIB-SRe LiScOUAL 3 1 


1 ' 
¢ i PSECTS 
PSECT 
7 CODE = SCODE (READ, NOWRITE EXECUTE, SHARE, PIC, 
DRESSING MODE (LONG RELATIVE)), 
PLIT = S$CODE (READ, NOWRITE, EXECUTE. SHARE, PIC, 
DRESSING MODE (LONG_RELATIVE)), 
OWN = SDATA (READ, WRITE, NOEXECUTE, NOSHARE, PIC, 
ADDRESSING_MODE (LONG_RELATIVE)S 
GLOBAL = $DATA"(READ, WRITE, NOEXECUTE, NOSHARE, PIC, 
ADDRESSING_MODE (LONG_RELATIVE)) 


| SWITCHES: 


SWITCHES ADDRESSING MODE 
(EXTERNAL = GENERAL, NONEXTERNAL = LONG_RELATIVE) 
' - 


; TABLE OF CONTENTS 


FORWARD ROUTINE 
get_vm, 
get_zero_vm, 
parse_excl_spec : NOVALUE, 
set_uic_value, 


Allocate some virtual memory 

Allocate & gpeer some virtual pratt! 
Parse the file spec given in /EXCLUDE 
Retrieve the UIC values given by /BY_OWNNER 
Clean_up RMS blocks and return 

Check answer to /CONFIRM prompt 
Locates needed XAB's in a chain 
/CONFIRM action routine 

Parse the common file qualifiers 
Evaluate file match criteria 

Free up any virtual memory allocated 


PAEAPEDX®_E Mgr & PEPE 


SAN NSN NN NOOO O 


WN SO OONANE WN 0 ODNO NEU OOODNOUE WN O 


1 

i INCLUDE FILES 

LIBRARY 
"SYSSLIBRARY: TPAMAC' 


LIBRARY 
"SYSSLIBRARY:STARLET' 


wn Oo 0@ uw 


Structure declaration used for system defined structures. This structure 
is byte sized. 
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STRUCTURE 
N*BS) 
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a 1 1 
3 185 Bi8s 1 ; 
m3 1 1 
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C FILE_QUA Common file qualifier 16-Sep-1984 02:23:4 AX-11 Bliss-32 V4.0 Pa 6 
yOse000 12-308- 1382 9: 4:2 VMSLIB.SRC LiscouaL 633; ” (3) 
; 19 1 1! 

; 138 a : MACROS 

; 199 138 1 RACRO 

3 i i 1 Field definitions for the QUALIFIER database. (QUALIFIER bblock) 

9 197 1 i 

3 4 138 1 i [he ed gy bem bit fields in the QUALIFIER area are set if a quel it ier 

; 4 +4 : is legal (selected by the caller) and also present on the command Line. 

; : 1 1 confirm_present = Q, 9. 1, 0%, ! /CONFIRM 

3 § 1 exclude_present = Q, - te © Be ' /EXCLUDE 

: 205 1 before_present = Q, ¢ 1, 02%, ! /BEFORE 

3 4 4 1 since_present e &, » te Oe ' /SINCE 

; 2 ee created_present o> &. Se Sa O Be ! /CREATED 

; 208 1 modified_present Ss 8, Be Fe @ Be /MODIFIED 

: $% BOR ny I eh eg i WBACKUP. 

; 12 0 03 : byowner_present ce. 2. . oe /BY_OWNER 

: 21 14 ' : 

3 \3 6 \§ : : by fields point to or contain values that appear on the command 

: 216 14 1 i 

3: 217 6 16 1 exc lude_ list = 4, 8. 32, 0%, ' List head for /EXCLUDE List 

; 218 0 16 1 before_Value = 8 0, 0,02, ! /BEFORE time value, quadword 

: 219 0217 1 since_value 26. @, 8. © Be ' /SINCE time value, quadword 

3 0 0 18 1 uic_value = 24, 0, 32, 0%, ' /BY_OWNER UIC value 

: 1 0219 1 uic_member = 26, 0, 16, 0%, } member portion 

; ¢ 0220 1 uic_group = 26, 0. 16, 0 2, ! group portion 

3 0221 1 uic_wldmem a : Ss Vo @ Be ! member value was wild 

: 4 8 § 1 uic_wldgrp S me Ve Be © Be ‘ group value was wild 

: 5 ? : vice gorp_parsed S os te Ya O Be ! Group portion has been parsed 

: ‘ 0 5 7 i Field Gott tas ‘one for flags, which when set effect the operaton of 

: 29 § ! LIBSQUAL_FILE_MATCH. 

: 0 : 1 callers_ fab em, 3 Fe 8 i, ' caller passed a file name net a FAB 
3 1 1 file_opén = e 4, 1,902, : gether as vyte already ope 

3 § 0 1 display_hdr S 255. Be Be 8 i, ! in soraetion } n file header will be Looked at 
3 1 } quit _processing (o.,. & 28s ! Response to /CONFIRM prompt was “Z or QUIT 
: 235 : 1 ¥ 

3 4 1 

HY 5 : MACRO 

: +4 : ' Field descriptions for varying string descriptor. 

: 261 5 1 ie _str_len = g. 8. 16. 8 i, ' current length of string 

; 24 40 1 var_str_body = 2, ! body of string 

7. | 

: 45 rk 1 !' These MACROS depcribe 9 an element of the exclude list. This List 

; 24 44 1 ' contains the file specifications Giver in the /EXCLUDE sel itie 

: 26 45 1 ' An elonent consists of 2 pe pointer to the next element an a descriptor 

; 248 46 1 !' for the file specification 


4 02:23:47 AX-11 Bliss-32 V4.0-74 P 8 
en 09:63:38 VMSLIB. SRCILIBCQUAL.B3 31 — (4) 
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COMMON _FILE_QUA Common file qualifier 1b-5e “19 
vou-000 1 ~Sep-19 
; : 


| EQUATED SYMBOLS 


NOUS 
Oooo 


H ; ee : 
; 4 1 . 
; 1 : 
3 4 1 : 
; ..s : 
; 8 1 LITERAL : 
: 260 1 true = 1, ; 
: 261 8 1 false = Q, : 
3 ? 23 ! su Fess = 0 : 
3 ailure = Q, s 
; ee 0 ee : quad = ! Size of a quad word, for declarations : 
: 26 1 : ; 
; 6 64 1 LITERAL é 
; 268 6 65 1 qual_blk_len = 32, ! Length qualifier database ; 
; 269 0 26 1 exci_blk_len = 1 ! Length of exclude List element : 
: 5h O58 
BRT, : 
: ne 9 re : EXTERNAL REFERENCES : 
> 276 0273 1 EXTERNAL ROUTINE ; 
: e277 0274 1 CLISGET_VALUE, ' Get a qualifier or value from the command Line : 
; 278 8 ee CLISPRESENT, ! Determine if entity is present 3 
: 279 6 1 LIBSGET_VM, : Allocate some virtual memory ; 
; 280 0277 1 LIBSCVT_TIME, ! Convert an ASCII time to 64-bits 3 
: 281 0278 1 LIBSTPARSE, ! Table driven parser ; 
; 28 0279 1 LIB$SIG_TO_RET ' Convert a signal to a return : 
: $B Ry] HERE Be sae peceeaes ; 
: 285 0 Ht 1 MATCH ! Com are a file to a patterrs 3 
3 a6 0285 1 IBSFREE_VM ! Deallocate virtual memory : 
: $B a : 
: 289 0286 1 : 
; 290 0287 1 EXTERNAL LITERAL ; 
: 291 § 8 1 LIBS_FILFAIMAT, : 
; 9 89 1 LIBS_INTLOGERR, é 
; 29 90 1 LIBS_INVARG, : 
3 94 91 #1 LIBS_INVXAB, ‘ 
: 295 38 1 LIBS$_NEGANS, ; 
; 96 93 1 LIB$~QUIPRO ; 
; 97 34 LIB$~QUI CONACT ; 
: 299 9% 1 ' : 
; 00 P 39 1 SSHR_MSGDEF( CLI, 3, GLOBAL, ; 
: 301 P 98 1 TCONFQUAL, SEVERE) ; 
: 0 P 0299 1 (INVQUAVAL, SEVERES, ; 
; 0 P BY 1 (QUALMISS, SEVERE), 3 
3 Be P 03 : (NOSUCHID, SEVERE) : 
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COMMON FILE_QUA Common file qualifier Ib-3¢ -1984 02:23: AX-11 Bliss-32 V4.0-74 Pa 9 
vou~000 ’ 12=80-}38% 99:92:35 | AMS Ob hes FE eta 285. eo 
; 307 ? 1 ! Address of the qualifier data base has been pieces in the TPAS$L_PARAM field 3 
; 1 ! of the TPARSE parameter block. THIS FIELD MUST NOT BE ALTERED By any of the $ 
3 6 } state transitions or the action routine will not work. : 
: 1} 07 : SINIT_STATE( cq_uic states, cq_uic_keys /; ; 
: i P 03 1 SSTATE( : 
: 314 P0310 1 (TPA$_IDENT, ,set_uic_value) ; 
s 315 114 ); 
; 316 P 0 1g 1 SSTATE( 
;. Sy P0313 1 (TPA$_EOS, TPAS_EXIT) 
; 18 8 14° «1 ); 
3 1 > 
; 320 0316 1 
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counen file qualifier 16-Sep-1984 98: 133 AX-1 i" 5 
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' 
THEN 
' 


1 
-Sep-1 VMSLIB 


ZSBTTL ‘GET_VM' 
ROUTINE get_vm( size ) = 


le4 

FUNCTIONAL DESCRIPTION: 

This routine calls LIBSGET_VM to allocate a block of virtual memory. 
FORMAL PARAMETERS: 

SIZE : The size of the area, in bytes 
IMPLICIT INPUTS: 

None 

IMPLICIT OUTPUTS: 

None 

ROUTINE VALUE: 

Address of the allocated area 

COMPLETION CODES: 

Any completion code from LIBSGET_VM 

SIDE EFFECTS: 

If allocation fails, fatal error is signalled 


BEGIN 

LOCAL 

rtn_status, ' Status returns from LIBSGET_VM call 
area_loc ! Pointer to the allocated area 


' Allocate some virtual memory; check the return status. If it isn't 
' successful, signal. 


if NOT ( rtn_status = LIBSGET_VM( size, area_loc )) 
SIGNAL( .rtn_ status ); 


! Return the location of the memory. 
RETURN .area_loc; 
END; ! End of routine get_vm 
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C FILE_QUA Common file Lifi 
vou-b00 en OUA cerOR segrscin a 


«TITLE 
- IDENT 


»PSECT 


00000 Ca_UIC_STATES:: 


85EC 00000 gTBASTYPE 
00000000v 00002 TBASACTION 
15F7 00006 ; TPASTYPE 
U. WORD 
FFFF 00008 : TPASTARGET 
U. 5: » WORD 


.PSECT 
00000 co_uIC KEYS: 
00000 ; ; TPASKEYO 

BLK 


S'S. 


»EXTRN 
»PSECT 


GET_VM: , ORD 
5E § 


04 
000000006 4 
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000000006 98 
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; Routine Size: 33 bytes, Routine Base: $CODE + 0000 


CONF QUAL== 
= INVQUAVAL== 
“QUALMISS== 
“NOSUCHID== 


1er$ep-1986 19:84:35 HemstiecsReSiTScOUAL 639; toe 


COMMON FILE QUALIFIERS Common file qualifi 
\v04-000\ weit ish 


-LIBSSTATES,NOWRT, SHR, PIC,1 


0 

-31252 ; 
<<SET_UIC_VALUE=U. 3>=4> ; 
5623 ; 
-1 : 


-LIBSKEYOS,NOWRT, SHR, PIC,1 


0 
0 


oooo 


E, MAT 

VA, LIBS_FILF 

OGERR trBs~ AVARG 
VXAB, LIBS$_NEGAN 
“ANY ANG: LIB$~QUICONACT 


‘oO. Swe 
zZ2zz2zmo-4>--4— — 2 
a 


SCODE,NOWRT, SHR, PIC,2 
Save nothing ; 0318 
#4, SP 3 

3 0364 
pee LIBSGET_VM ; 
RTN_ STATUS, 1$ : 
™ “STATUS ; 0366 
4 REAC Ate : 


0373 
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Common file qualifier 18-3 -1984 23:4 AX-1 i 
GET ZERO.VM * 12-808-1382 99:95 esis 
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1 a) i ass 
-Sep-1 VMSLIB. LIBCQUAL .B32;1 


ZSBITL *GET_ZERO_VM' 
ROUTINE get_zero_vm( size ) = 


144 
FUNCTIONAL DESCRIPTION: 


This routine calls LIBSGET_VM to allocate a block of virtual memory 
and clears the allocted area. 


FORMAL PARAMETERS: 
SIZE : The size of the area, in bytes 
IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
None 
ROUTINE VALUE: 
Address of the allocated area 
COMPLETION CODES: 
Any completion code from LIBSGET_VM 
SIDE EFFECTS: 
If allocation fails, fatal error is signalled 


BEGIN 

LOCAL 
rtn_status, ! Status returns from LIBSGET_VM call 
area_loc ! Pointer to the allocated area 


! Allocate some virtual memory; check the return status. If it isn't 
successful, signal. 


if NOT ( rtn_status = LIBSGET_VM( size, area_loc )) 
SIGNAL( .rtn_status ); 


: Zero out the area just allocated. 
CHSFILL( 0, .size, .area_loc ); 
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C FILE_QUA Common file qualifier 16-Sep-1984 02:23:47 AX-11 Bliss-32 V4.0-74 
voe-000 : 1o238b71982 93:42:35 Chi 


GET_ZERO_VM VMSLIB.SR BCQUAL .B32;1 
: c38 re H Return the location of the memory. 
3; 6 5 4 RETURN .area_loc; 
: 440 4 
> 44) 435 END; ! End of routine get_zero_vm 


003C 00000 GET_ZERO_vM: 


“WORD Save R2,R3,R4,R5 
SE 04 62 90002 Ue aan sp 
ae ae 
000000006 00 5 FB OOQ0A CALLS. Ro LIBSGET_VM 
09 0 £8 0001) BLBS - RIN_STATUS, “1$ 
DD 00014 PUSHL  RTNTSTATUS 
000000006 00 01 £8 00016 CALLS #1, LIBSSIGNAL 
MOVCS #0. (SP), #0, SIZE, @AREA_LOC 
04 AC 00 6E oo 20 2 90010 18 C5 #0; (SP), #0, SIZ 
50 6E D0 O99 MOVL AREA_LOC, RO 
04 00028 RET 


; Routine Size: 41 bytes, Routine Base: $CODE + 0021 


Page 13 
. (7) 


0375 
0421 


0423 
0428 


0433 
0435 


<o 


448 


PELL LPL LEEKS 
PHAEADAANAS NNN 
—OVODNOUSWN—O” 


PUSSIES 


Sal ak ak al al ak Sk ek ee eae ta ak ata 
SSS 
=O OONAUNE WN" OVOONOu 


SPRRERREEEEEREEREEER 


0479 


CoCo NNN NNN NN 
WN —OOONOULS wn 


w 


Ooo 


rx 
oo 
~m 


. 13 
ile qualifier 1b-3e 1984 02:23:4 AX-11 Bliss-32 
cL’ sPec 1e-8eb-1986 98:82:35 EYmsuie sReiiiac 
ZSBITL_‘PARSE_EXCL_SPEC' 
ROUTINE parse_excl_spec( src_desc : REF SBBLOCK, 
sl_desc REF $BBLOCK, 
rln_idesc REF S$BBLOCK, 
qual_desc : REF SBBLOCK ) : NOVALUE = 


+ 
a 


FUNCTIONAL DESCRIPTION: 


qualifier. 
FORMAL PARAMETERS: 
src_desc f 
varying). 
rln_desc 
qual_desc 
signal 
IMPLICIT INPUTS: 
None 
OUTPUTS PARAMETERS: 


esl_desc 
SPARS 


IMPLICIT OUTPUTS: 
None 

ROUTINE VALUE: 
None 

COMPLETION CODES: 
None 

SIDE EFFECTS: 


BEGIN 
LOCAL 
rtn_status, 
SFAB_DECL, , 
SNAM_DECL, 


rel_nam : f 


This routine parses and checks a value specified for the /EXCLUDE 


pointer to the string return by the CLI (PL/I 
descriptor for related file name strin 


no pally ges for /EXCLUDE qualifier; wool for 
ing an error. 


: Sstecpter for the expanded string returned by the 
operation. 


Virtual memory is allocated to hold the expanded name string. 


Return status from external calls 
Local FAB, for parsing file name 


! Local NAM block, for parsing 


Local related NAM block, for parsing 


V4. 
QUA 


0- 
L. 


7 
8 


3.1 


roe is 


Be Oe Be Se Be Se Se Be Ge Fe Be Se Se Se Se Se Ge Be Se Se Se Se Se Sete Se Ge Se ee Ge Ge Se Be Ge Ge Ge Ge Se Fe Se Se Ge Ge SH Se Se Se Se ee Ge Se Ge Se Ge Ge Se ee 


voenb00 ILE WA § 


WPwin— 


oo 
co 


MUA IIRIININIVNIN 3 3 3 
CODBNOAULSWR OOOBNOUS WN DO NONNWY OODIARME WHOS 


NE PEE EEE EE 


MUM 
Ounfur— 


PPV PUDPVDPVDPVPVDV DVIPS SPVDU PUSSIES PUSSIES ISVS ISIS ISIS ISIS SISOS ISIS 


vuvuvUvU 


vuvuvv 


c RESeeaaee F 


Od dd ad md I OOO 


MEW —O OONOUS WIN “CO OONOUS WO 0@ 


ARSE EXC 
esa 
esc 
i 
THEN 
BEG 
i 
T 
4 
4 
4 
4 
4 


Le, guelitier 1b-Bep-1984 02:25:47 YAKGIT Bling sz v4.00763 | 


- Rieter ! Area to hold ded tri 
! Area to hold expa 
VECTOR NAMSC_MAXRSS, BYTE J, aT Geen 
d ! Descriptor used when signet ine errors 
SBBLOCKL DSCSK_S_BLN J INITIAL (REP DSC$ _S_BLN OF BYTE (0)) 


! Initialize the RMS control blocks for the SPARSE operation. 


$F AB_INIT( 
FAB = fa 
ENA = .src_desch DSCEA POINTER, 1, 
= esc 
ONS = 3B5S0bes c Secerate 
NAM = 
); 
SNAM_INIT( 
NAM = nam, 
ESA = esa 


ESS = NAMSC_MAXRSS 


IF .rln_desc NEQ 0 


E in 
nam 7%? ee J] = rel_nam; 


SNAM_INIT( 
NAM = 
RSA = rete “desel DS POINTER J, 
RSS = trin2 desc bse “LENGTH J 


! Parse the file name using SPARSE. 
if NOT (rtn_status = SPARSE( FAB = fab )) 
BEGIN 


i The eoanse operation was not successful. Use the most complete name 
possible in signaling the error. 


if .namC NAMSB_RSL ) NEQ 0 
BEGIN 
There is a resultant name string, use it. 


desc DSCSA_POINTER_} = .mam{ NAMSL_RSA 
descl DSC$WILENGTH J] = .naml NAM$SB_RSL 


roe 


kK 13 


There is an expanded name string, use it. 


desc{ DSCSA_POINTER_] = .mam{ NAMSL_ESA 
descl DSC$W-LENGTH J] = .maml NAMS$B_ESL 


END 
ELSE 
BEGIN 


! Use the qualifier value given on the command Line. 


iene DSCSA_POINTER_] = .src_desc{ DSCS$A_POINTER J; 

descl DSC$W_LENGTH ] = .src_desc ds¢ Su LENGTH J; 
END; ! inner else stmt 
END ! outer else stmt 
SIGNAL (ELIS, INVQUAVAL, 2, desc, .qual_desc, .rtn_status ); 


C FILE_QUA Common file qualifier Sep-1 3:4 AX=11 «) -32 V4.0-74 Page 16 
vO4-000 PARSE EXCL SPEC 12 30-1984 98: 2: 35 VMSLIB.S RCIL IBCQUAL .B32;1 ° (8) 

END 

ELSE 

BEG! 

IF_.mam€ NAMSB_ESL J NEQ 0 

THEN 

BEGIN 


! Check to make sure an acceptable name was returned. No null strings, node 
names, quoted strings or device names. 


ir -nam( NAMSB_ESL J] EQL 0 


S nent NAMSL_FNB J AND 
THEN NAMSM_EXP_DEV OR NAMSM_NODE OR NAMSM_QUOTED )) NEQ 0 


SIGNAL(CLIS_INVQUAVAL, 2, .src_desc, .qual_desc ); 


Initalize the descriptor for the expanded name string. 


esl _desc{l DSCS$W_LENGTH J] = .namC NAMS$B_ESL J; 
esl“descl DSCSB_DTYPE = DSC$K_DTYPE_T; 
esl-desc€ DSC$B_CLASS = DSCSK_CLASS_ "S$; 


QEREANLESSEVEAREAV AS SAVSAR ANAS SSISALERVZS SS 


o 
@ 


SQQOOCOCCQCOCOOSSSOOSO OOOO OCCOOOOOOCOOOOOOOOOOOOoO 


Ly ah ah ah Ab sb Ab Ab Ab Ah Abb Ab Ab db Ab Ab Ab Ab db dh sb sh sh ab sb sh sh al 


LSSSESE Wr 
SIMI IPIMIPIMINIPIPIPIPIPIPIPIPIPIPIPIPYPIPIPIPIPIPD CAPIPIPIPIPIPIIID HS SSSI SB SISTOSISTOSIOIIOIT EE &* SN 


99 ' Allocate virtual memory to hold the expanded name string. Have the descriptor 
$00 point to this new memory. 
rt co _desc{€ DSCSA_POINTER ] = get_vm( .mam{€ NAMSB_ESL J] ); 
604 
605 Copy the expanded name string into the allocated memory. 

CHSMOVE 
608 -nam({ NAM$B_ESL J, 

esa 

610 ,esl_desel DSCSA_POINTER J 
61 . 
38 END; ! End of routine parse_excl_spec 
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¢ FILE_QUA Common file qualifier 18-$e =1984 02:23:4 AX-11 Bliss-32 V4.0-74 
yan 800 PARSE. EXCL. SPEC en ee- 1382 99:42:55 | FAMST T Ok iesr Fe yh O-28s 
3B 2A 2E 2A SD 2E 2 2E 30 30 30 30 30 30 $B QOO4AP.AAA: ASCII \C000000...Je.#:#\ 


-EXTRN SYSSPARSE 
O3FC 00000 PARSE_EXCL_ SPEC: 
WORD 


Save R2,R3,R4,R5,R6,R7,RB,RP 


9 FB AF 9E 0000 MOVAB P.AAA : 
8 000000 06 00 9€ MOVAB LIBSSIGNAL RB : 
- FDF ce i ROVAB ~528(SP), SP pe 
0050 «= 8&F 00 6E : 06 2c 14 MOVCS #0, (SP), #0, #80, SRMS_PTR + 0512 
BO AD 500 F 80 1 MOVW $$ #20483, SRMS_PTR : 
C6 AD : MOVB = #2, $SRMS_PTRT22 : 
CF AD 90 000 MOVB #2, $RMS~PTR+31 : 
d8 A FF50 §6©CD 6(9E 00028 MOVAB NAM, SRMS_PTR+ : 
g 04 AC D 99 1 MOVL SRC_DESC : 
DC AD 06 =A p 035 MOVL  4(R7), SRMS_PTR+44 : 
EO AD 69 ‘ 003A MOVAB P.AAA, $RMS~PTR+48 : 
E4 AD 67 9 05 MOVB  (R7), S$RMS_PTR+52 : 
—E5 AD 10 90 904 MOVB #16, $RMS_PTR+53 ; 
0060 8F 00 6E oan 00 2¢ 0046 MOVCS #0, (SP),~#0, #96, SRMS_PTR : 0518 
FF5SO CD 6002 F BO 09030 MOVW # #24578, S$RMS_PTR : 
FFSA CD 01 : 0057 MNEGB #1, $RMS_PTR710 ; 
FFSC) = CD 08 AE 005 MOVAB ESA, SRMS_PTR+12 ; 
56 0c A p 906 MOVL RLN_DESC, ~R6 : 0520 
FF60 CD 0108 CE 9E 000 MOV REL_NAM NAM+16 : 0523 
0060 8F 00 6E ae 09 2c O06F MOVCS #0,~(SPS, #0, #96, SRMS_PTR : 0528 
0108 CE 6002 &F 80 $079 MOVW #24578, S$RMS_PTR : 
010A CE a5 9080 MOVB  (R6), $RMS_PTR+2 : 
FEFS CD 04 Ad 00 99 5 MOVL  4(R65, SRMS_PTR+4 : 
BO AD 9F 00088 1$ PUSHAB : 0535 
000000006 00 gi FB OO8E CALLS #1, SYSSPARSE ; 
C 0 f 009 BLBS = RTN STATUS, 6$ : 
1 FFS3 cD A 0098 MOVZBL NAM?3, R1 : 0542 
1 90 BEQL = 2 : 
04 AE FF54 CD p OF MOVL NAM+4, DESC+4 : 0548 
D a3 BRB 3 : 054 
51 FF5SB CD 9A OOOA7 2$ MOVZBL WNAM+11, R1 : 0553 
0B 1 AC BEQL 4$ : 
04 AE FFSC «6CD CO A MOVL - NAM#12, DESC+4 > 0559 
6E 1 : 3$: MOVW RI, DESC : 09 
8 B7 BRB 5$ : 055 
04 AE 04 A 9 B9 4$: MOVL 4(R7), DESC+4 : 056 
6E $7 B BE MOVW  (R7), DESC : 0568 
0 DD 000CT 5$ PUS RTN_STATUS : 0571 
10 AC pp C3 PUSHL  QUAC_DESC ; 
0 AE F 000C PUS DESC ; 
0 DD 000C PUSHL # ; 
0003132c 8F DD 000CB PUSHL #201516 ; 


m 13 
CREB ME-O Sapte gytstir MEROCHOE SEGMENTS 


05 FB 00001 CALLS #5, LIBSSIGNAL ; 
$f FFSB gD ? D4 68 MOV ZBL Nanette 34 : 0577 
00060080 8F 84 Ap : : pitt NAM+52, #393344 + 0580 
10 AC dD 0005 78 PUSHL  QUAL_DESC : 05 
a a z 
0003132¢ BF DD OOOE PUSHL 01516 : 
4 F F CALLS #4, LIBSSIGNAL ; 
08 i D F5 8S: MOVL = mL R2 + 0587 
6 8 F HOVW R (R2) : 
02 =A 010€ B FS MOVW #270, 2(R2) : 0588 
3 DD 001 PUSHL R : 0595 
FE9D CF 1 FB 001 CALLS #1, GET_VM F 
04 A2 : 0109 MOVL RO, 4(R2) : 
04 B82 08 AE 8 00109 MOVES R3, ESA, @4(R2) ; 9603 


; Routine Size: 276 bytes, Routine Base: S$CODE + 005A 
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! 


FUNCTIONAL DESCRIPTION: 


‘78 v4. 
LIBCQUA 


nn 
xz—. 
ow 


SSESSSSS 


> a st ts a 


MEUM SO ODNOU EWN" O CONOUES WN" O0O~ 


This routine places the group and member numbers, given on the 
Line, in the qualifier data-base. 


FORMAL PARAMETERS: 
None 
IMPLICIT INPUTS: 


AP, most notable the offset TPASL_PARAM, which contains the address 
of the qualifier data-base. 


IMPLICIT OUTPUTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
None 
i 
i 
i 
i 
i 
i 
i 
i 
1 
i 
i 
' 
ie 


rape ey wee ete od the hy ope Nr ae 
NOUS WN OODONOU SWI Oo 


ROUTINE VALUE: 


ttt tte 


SSSSSSSSSSO PAA AAA AAA AAA ADA ADDP-O-O-O-0-0- 


39 
? Be True, unless something is screwed up. 
¢ Be COMPLETION CODES: 
4 No 
: O63? ne 
: bess SIDE EFFECTS: 
: ere! The UIC fields in the qualifier database are changed. 
$81 bees 1 
$36 Dea BEGIN 
654 Dgeg BUILTIN 
655 AP 
39 ; , 
6 0 CAL 
re 1 qualifier : REF S$BBLOCK, 
§ number 
4 e 


AP : REF $B8BLOCK 


SSSSESEESE 


qualifier = -APt TPASL_PARAM J: 
number = .APL TPASLNUMBER 3; 
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COMMON _FILE_QUA Common file qualifier ibese -1984 02:23:47 AX-11 Bliss-32 V4.0-74 Page 21 
vounou0 TE WF ledge ergee= 18s 99:92:35 1B SRESLIBCOUAL 263951 9 48) 


CLEAN_U - VMSLIB 
; 680 671 1 XSBTTL ‘CLEAN_UP' $ 
; 681 ore 1 ROUTINE clean_up( qualifier : REF SBBLOCK, ; 
; ore 675 1 rtn_status, 3 
; 68 674 1 fab : REF $BBLOCK, 5 
> 684 675 1 xab_holder ) = : 
Roy ae e : 
; 687 678 | FUNCTIONAL DESCRIPTION: ; 
: 689 oe 1 clean_up puts the user's FAB back in order -- returns the user's ; 
; 690 be jee Re XAB chain to the FAB, if the file was not open when LIBSQUAL_FILE_MATCH : 
> 691 ob¢ 1! was called and then closes the file. If the status was anything ; 
3 4 82 ? ! unexpected the condition is signalled. ‘ 
; 694 068s | FORMAL PARAMETERS: ; 
; 6% 0687 1! fab : User's FAB ; 
; 697 +¢'¢4 1! rtn_status : Status to exit procedure with $ 
3 228 peaR : xab_holder : Pointer to user's xab chain : 
: 700 691 1 { IMPLICIT INPUTS: 3 
eo Bip oe : 
> 704 0695 1 | IMPLICIT OUTPUTS: ; 
; 705 0696 1! : 
wee Be iio . 
; 708 0699 | | ROUTINE VALUE: 
; 10 9701 rtn_status : 
: ie 0708 ! COMPLETION CODES: 
; ay 145 : rtn_status : 
: 716 OFOe 1 | SIDE EFFECTS: ; 
; 717 0708 1! : 
; 718 Boye 1! None ; 
: 719 710 1! : 
Bm ik : 
; i o7§ BEGIN ; 
; 3 Ors og! -qualifierl file_open J : 
; i at BEGIN : 
: 728 9 ! If the file is currently open and was not open before, close it and é 
3 736 4 9 ; return the original XAB chain. : 
: 731 7 ‘ if .fabC FABSW_IFI J] NEQ 0 ; 
; 4 § Z THEN S$SCLOSE( FAB = .fab ); ; 
; 734 725 fabC FABSL_XAB ) = .xab_holder; : 
3 39 7 § END; 3 
3; 736 7 : 


COMMON 
v04-000 


; Routine Size: 


: IF NOT ( .rtn status OR 


§ RETURN .rtn_status; 
5 1 END; 
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72 bytes, 


7 
7 
7 oft 
f 1 THEN SIGNAL ( 
7 
7 
7 


FILE_QUA Common file qualifier 
CLEAN_UP 


ertn status EQL 
n status EQL 


000000006 
24 


000000006 
000000006 


000000006 


Routine Base: 


v0vo 


CLEAN_UP: 
oW 


wrui 


moO 


oro 
"OroMwO 
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LJ 
FO OW *W" DOOTWIWMO OO 
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SSSSSSSSSSoSSeeeee 
FPFWWINIAIPPOP | | | | OOO 
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Aw 


oono—-o-OomMmoon"o-@wcomMm 
NEODONMOOSENMOIO Sr 


-EXTRN 


71986 99:82:38 — WimsLieesneic ic 


! End of routine clean_up 


SYSSCLOSE 


F 

(Re) 
$ 

i 

#1, SYSSCLOS 

XAB_HOLDER, g(R2) 

RIN-STATUS, R 

> #LIBS_FILFAIMAT 


, #LIBS_QUIPRO 


M—MeNr Norn 


DBwOIWDWADD 


LIB$SIGNAL 
RO 


Sete Se Ge Se Ge Se Be Se Se Ge Se Se Ge Ge Ge Se Be Be 
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0672 
0715 


0722 


0723 


0725 
0728 


0729 
0730 
0731 


0733 
0735 
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Be 000 LEGAL_A ANSWER” ~3007 138% 4: $5 23 VMSL IB SRESLTBCOUAL 63951 ” ag 

reg 7 § 1 ZSBTTL "LEGAL_ANSWER' ; 
eee f ! ROUTINE legalZanswer( desc : REF $BBLOCK ) = ; 
i GeV yes : 
i Tee : FUNCTIONAL DESCRIPTION: ; 
7 g 743 1: lLegal_answer oe the user's response to the /CONFIRM prompt to : 
tee re ! make Sure it was a legal response. : 
£36 4g FORMAL PARAMETERS: ; 
738 re ! desc : Address of descriptor for the user's answer : 
760 £30 1 | IMPLICIT INPUTS: : 
a Bes | 
764 0754 1 | IMPLICIT OUTPUTS: : 
ee os esas : 
res O586 : ROUTINE VALUE: : 
770 0760 1 | SS$_NORMAL : positive answer : 
771 0761 1: LiB$ _NE GANS : ol: answer 3 
77 $706 1/ LIB$_QUIPRO : t processing 3 
oe Ber ! LIB$— “QUI CONACT : cont thus processing, but cease prompting : 
775 0765 1 | COMPLETION CODES: F 
776 8706 1/ 3 
ee 49 eo 7 
443 th : SIDE EFFECTS: : 
781 ues The response string will be up cased. ; 
78 ae 1} 3 
te | : 
ree 775 BEGIN 3 
786 776 3 
Be. be : 
As 44 : This macro creates an entry in the answer table. ; 
791 8 781 table_entry( ans_str, rtn_val J] = 3 
79 Mm 07 ; WORD < XCRARCOUNT (~ ans str)), ! max Length of valid response 3 
79 M 07 UPLIT OYTE ( ans_str ), ' pointer to answer strin 3 
ope re rtn_val %, ! return value, if a match occurs : 
196 786 ans_len = Q. . 16, 0%, ' Length field : 
79 7 ans_str = 2, 0, ; <a Me ' string address field $ 
798 7 3 ans_ “rtn = 6, 0, 32, 0% ' return value field F 
799 7 3 3 
601 1 

2 792 2 LITERAL F 


C FILE_QUA Common file qualifier 
vour000 e= : 


F 14 
LEGAL ANSWER greet Re PSigzi3e | Ms eecdeS fachal o$5.1 Page 44) 


ae —> i) 


: 0? 73% entry len = 10 Length table entry in bytes : 
; 805 795 4 ; 
3 Be 7 $ IND ; 
; 80 P 07 ans_table = PLIT( table grtrys : 
$ bs P 07 3 TRUE’, SSS$_NORMAL, 3 
; 80 P 079 "YES SS$-NORMAL , ; 
; 810 P gn0 4 be SS$_NORMAL 3 
> 811 P 0801 "FALSE', LIBS_NEGANS, 
3 \¢ P B06 "NO', LIBS_NEGANS, ; 
; «(BY P 080 ‘O°, LIB$_NEGANS 3 
; B14 P 04 ‘ALL’, LIBSTQUICONACT, ; 
; a2 B? : QUIT", LIBS_QUIPRO )) : bblockvectorLl,entry_len] : 
: B19 OB0s ‘ ; 
; 818 44 : 
; 819 0809 LOCAL 3 
3 Bg Oays str_len, ' Length of user's response string 3 
: : 1 9p entry count ' number of entries in the table : 
: 8 : $818 : ; 
: 824 0814 $ 
; 825 0815 3 
8 836 Ba18 3 
; 8 081 ! <CR> defaults to a NO of FALSE; that is, the user does not want this 3 
3 a 0819 : file operated on. : 
: 830 0 0 2 IF .descl DSC$W_LENGTH J EQL 0 : 
; 831 8 1 2 THEN RETURN LIBS_NEGANS; 

; HY 0898 

3 te 83 : } Up case the string. 

: 836 08 6 2 STRSUPCASE( .desc, .desc ); 

> 837 7 @ str_len = .descl DSC$W_LENGTH J; 

Ro om 

; 840 O8 0 ! See what the user's response was, and return the spereer tate value. First, 

: 841 1 i determine the number of entries in the table and then compare the user's 

: Beg ; ¢ response to the the table entries. 

; B44 834 2 entry_count = (.(ans_table - 4) * 4) / entry_len; 

3 HA 835 INCR 7 FROM 0 TO .entry_count - 1 

: Bed ; $ IF( CHSEQL( .str_len, .descl DSCSA_POINTER ] 

: 848 8 8 MINU( .str_len, .ans_tablel .i, ans_len 5), .ans_tableC .i, ans_str J)) 

3 o , THEN RETURN .ans_table(’.i, ans_rtn J; 

: 851 1 

3 26 § } The answer given was not legal. 

: 26 4 RETURN false; 

; 856 46 END; ! End of routine legal_answer 
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C FILE_QUA Common file qualifier 18- -Sep-1 AX-11 Blis V4.0-74 P 5 
yOen 000 LEGAL ANSWER eats ri eet a Gh PT age 49 
45 52 54 OO1E0 P.AAC: .ASCII \TRUE\ ; 
33 28 35 ies P.AAD: .ASCII \YES\ ; 
1 OO1E7 P.AAE: <cASCII \1\ : 
45 53 4C 41 46 OO1EB P.AAF: <ASCII \FALSE\ : 
Fh RUD BMG RELL AR ; 
af 4C 41 OO1FO P.AAL: <ASCII \ALL\ : 
54 49 55 51 It P- AAJ: “ASCII \QUIT\ : 
00000014 001F8 “LONG 20 F 
04 OO1FC P.AAB: .WORD 4 : 
9000 * OO1F “ADDRESS P.AAC : 
0 -LONG ! : 
0 ' 00 .ADDRESS P.AAD : 
$80 001 38 ‘tone. 
9000 ° 0° f “ADDRESS P.AAE : 
00 0 i 0 16 -LONG 1 
9000 000° 0021¢ .ADDRESS : 
woof obee 8 ? | ras ANEGANS é 
9900000 * 00226 “ADDRESS P.AAG : 
0 000006 0 A -LONG LIB$_NEGANS : 
90000090" 0 5 “ADDRESS P : 
000000006 0 é “LON 6 18s. ANE GANS ; 
90000000" O23A “ADDRESS P.AAI : 
000 4h : i tone LIBS_ QUICONACT : 
00000000" 00244 [ADDRESS P : 
000000006 00248 “LONG Lies QuIPRO : 
ANS_TABLE= P.AAB 
O3FC 00000 LEGAL_ANSWER: 
re = nats HRD Save, ma RS. Rs, R5.R6,R7,RB,RO ; 0737 
i Ae 30 900s ROW ESE ; 0820 
08 1 0 oC BNEQ ‘1 F 
50 000000006 06 OF OVL #LIBS_NEGANS, RO ; 0821 
57 DD ° 18 1$ PUSHL R? + 0826 
7 DD 0001 PUSHL : 
000000006 90 08 if 1A CALLS Ae, STRSUPCASE ~~ 
50 FC OAD 2 8 4 ASHL i ing TRBLE 6 : oB%a 
58 20 AC 9 DIVL3 ' 6, RO: ENTRY_ ‘eta : 
4 1 ( MNEGL : 0837 
D BRB : 
56 54 A ‘ 2$: MULLS io. iM RG ; 0838 
50 6946 8 0 €D 000 CMPZV #0, a ita RNS. TABLECR6), RO : 


4E 
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3$ 
PUSHAB ANS_TABLECR6] 
MOVZWL @(SP)+, R 

P ANS TABLE+2(R6] 


+, R 
CMPC5 STR_LEN, @4(R7), #0, RO, (R1) 


wa 
bad 
= 
& 


50 00 04 87 


BNE 4% 
PUSHAB ANS ae yg 
MOVL a(SP)+ 


ett eee. I, 28 
RO 


= 
wn 
orn 
-om 
2wo- 
rr 
wn 
“ 


CF 54 28 


; Routine Size: 102 bytes, Routine Base: $CODE + 024C 
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1 
C FILE_QUA Common file qualifier 1b-S¢ 1984 02:23:4 AX-11 Bliss-32 V4.0-74 Pa 7 
V0e-000 FIND RMS. BLOCK 12=ge8= 1382 9939233 VMSLIB SRE SLISCOUAL .63951 9435 
; 38 47 1 XSBTTL "FIND_RMS_BLOCK’ 
H 48 1 ROUTINE find rms_blocks( quat iter : REF S$BBLOCK, 
; 860 49 1 ab : REF S$BBLOCK, 
; 861 1 xabdat, 
; 86 1 xabpro 
; 86 : 1 lcl_xabdat : REF $BBLOCK, 
: Bes ra Kebchotaer ) : NOVALOB Ss” 
3 x older : z 
: 866 Bes | _ pce 
; 867 56 1 S44 
; 868 Opes 1! 
: B68 0859 1 FUNCTIONAL DESCRIPTION: 
3 871 60 1: FIND_RMS_BLOCKS locates the RMS control blocks attached to the 
: He oe) } user’s FAB. If the file isn't open, local XAB's are used. 
: 874 ages 1 | FORMAL PARAMETERS: 
: 875 864 1! 
; 876 Bae? 1! QUALIFIER : Pointer to the qualiier data base 
3 877 8 7 FAB : The user's fab 
; 878 0867 1! LCL_XABDAT : Address of local date XAB, used if file is closed 
; 879 +944 1! LCL_XABPRO : Address of local protection XAB, used if file is closed 
: eee 04 : H XAB_HOLDER : Pointer to the user's XAB chain 
: 88 0871 1 | FORMAL OUTPUTS 
; 88 pars 1! 
> 884 0873 1! XABDAT : Pointer to the date XAB 
3 See pare : } XABPRO : Pointer to the protection XAB 
: Ht 0876 | i IMPLICIT INPUTS: 
; 888 0877 1! 
; 889 0878 1! None 
; 890 879 1! 
H $9) 0880 1 ! IMPLICIT OUTPUTS: 
; 89 881 1! 
3; 8 0882 1! None 
: 894 0883 1! 
3; 895 0884 1 ! ROUTINE VALUE: 
; 896 0885 1! 
Pi Be bps 
: 899 $888 i COMPLETION CODES: 
; 900 889 ! 
; rit Bot ! : Any RMS code or LIBSINVXAB (Invalid XAB chain) 
: 308 089 1 | SIDE EFFECTS: 
; 904 895 1! 
; 905 894 1! File will be opened, if it is not already open. 
; 95 1! 
3 309 38 1 !-< 
; 908 97 1 
: 4 38 BEGIN 
: 911 LOCAL 
3 at 1 rtn_status ' Status returned from externla calls 
; § current_xab : ! XAB being evaluated 
: 916 REF $BBLOCK, 


14 
C FILE_QUA Common file qualifier 18-5 -1984 02:23:4 AX-11 Bliss-32 V4.0-74 P CQ 
yoe-000 FIND_RMS_BLOCK 1 =3007 1382 96: 4:2 VMSLIB SREILISCOUAL 103351 age 135 va 


Oo 
= 


xabdat_fnd, ! Boolean, date XAB was located 
xabpro_fnd ! Boolean, protection XAB was located 


oO 
uw 


Is the file already open? 

if NOT .qualifierl file_open J 
BEGIN 
Have the FAB point to the Local XAB's and save their addresses. 
fabC FABSL_XAB J 
-xabdat 
icl_xabdat€ XABSL_NXT J 
.xabpro 


wov0oooon0 
oO 


nnun 

- 
o 
~ 
cal 
ow 
i-4 

0 
7 
° 
= 


WN" OOCONOVULWN"OVOOIOu 


WWWNWAIAIRIPIPONIPYPOPONINY NI 2 Ss SS SS 


OOoooooooooooooooooooo 


OOODDOOOOOOOOOO 


SSSSSSISISS 


BIE AN $$ O OONOULS WN “OVO ONOULSWN—O 


Open the file and display the header information. 
iF NOT (rtn_status = SOPEN( FAB = .fab )) 


4 
THEN clean_up( .qualifier, .rtn status, .fab, .xab_holder ); 
4 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
| 


SEAS 


LLL LSSCSCCLCCeCcccvowcocwowoooooo0ooo0o0o090 


; 938 09 

; 939 09 

: 0 09 END 

; 1 09 ELSE 

3 ¢ bas BEGIN 

3 ace bas Assume neither XAB is needed. Get the first XAB in the chain. 

; 946 093 xabdat_fnd = NOT (.qualifierl before_present J] or .qualifier£ since_present J); 
; 947 b3e xabpro_fnd = NOT ,qualifierl byowner_present J; 

: 948 937 current_xab = .fabt FABSL_XAB J; 

> 949 09 

; 950 0939 

3 32) Bey : For each XAB in the chain, check to see if it is a protection or date XAB. 
: 388 094 WHILE NOT( .xabdat_fnd and .xabpro_fnd ) 

; 954 094 dO 

3; 955 0944 BEGIN 

3 328 945 

; 95 946 ! If we have encountered the end of the XAB chain, then a necessary XAB : 
; 328 ot ; was not found. Signal the condition. 

; 960 949 IF .curren._xab EQL C 

: +e 329 THEN clean_up( .qualifier, LIBS_INVXAB, .fab, .xab_holder ); 

3 968 326 IF_.current_xab{C XABS$B_COD J] EQL XABSC_DAT 

3; 964 95 THE 

; 965 954 BEGIN 

: 2e8 955 

; 96 Bee ! The date XAB has been found. Save it's address and note that it 

3 368 2 was found. 

; 970 989 .xabdat = .current_xab; 

; 971 960 xabdat_fnd = true; 


COMMON AF ILE QUA Common file geek titer 16- » 138% 96:67 60 AX-11 oi str techode oe Page $9 


FIND_RMS_BLOCK ~Sep- VMSLIB QUAL .832;1 
3 7 9 4 ND; 
: 318 i ¢ IF t_xabC XAB$B_COD J] EQL XABSC_PRO 
3 -current_xa 
: 975 964 & =a - ° 
3 378 Be2 BEGIN 
: 38 96 ' The protection XAB has been found. Save it's address and note 
; ane 36 that it was found. 
: 981 9 xabpr = .current_xab; 
3 oa8 9 ° caboro. fnd = true: 
oe BRE 
; 38s a3f8 Get . ee of the — whe chain. 
° = eo t Py 
! 988 0977 Q ini _xa current_xa os mas! 
3 3 ! while loo 
; 990 0979 3 END; ' whse atatenent 
; 991 0980 1 END; ! End of routine find_rms_blocks 


-EXTRN SYSSOPEN 
007C 00000 FIND_RMS_BLOCKS: 
WORD 


" Save R2,R3,R4,R5,R6 ; 0848 
56 FEEO CF 9€ 0000 MOVAB CLEAN_UP, R6 : 
53 08 AC 00 0000 MOVL FAB, : 0918 
54 04 Ac dO 90008 MOVL QUALIFIER, R4 : 0912 
31 1¢ AG 04 £0 0000F BBS #4, 28(R4S, 1$ : 
50 146 AC DO 90014 MOVL §LCL_XABDAT, RO : 0918 
24 «AB 50 DO 00018 MOVL RO, ~36(R3 : 
0c BC 50 DO 0001C MOVL RO. @XABDAT > 0919 
04 AO 18 AC DO 00020 MOVL LCL_XABPRO, 4(RO) : 0920 
10 BC 18 AC DO 00025 MOVL LCL XABPRO, @XABPRO : 0921 
08 AC DD OO02A PUSHL FAB : 0926 
000000006 00 gi Fe 002D CALLS #1, SYSSOPEN : 
62 0 €8 000 BLBS §RIN_STATUS, 7$ ; 
1¢ AC DD 00037 PUSHL XAB-HOLDER : 0927 
08 AC DD OOO3A PUSHL . ; 
20 DD 99 D PUSHL RTN_STATUS ; 
4 DD F PUSHL  R4 : 
bo 04 FB 9041 CALLS #4, CLEAN_UP : 
04 00044 RET : 091 
52 64 1 : EF 00045 18: EXTZV i: #1, (R4), R? : 093 
50 64 1 EF O004A EXTZ wi. (R4); ; 
: C8 F BISL : 
D : MCOML Re. 8 XABDA ; 
55 01 «Ab 01 EF EXTZV mt KABPRO. FND > 0936 
; D B MCOML nt XABPRO : 
§ 24 Ad D MOV ecRs) CoaR XAB : 0937 
03 3 E 2$: BLBC TEND. :"- : 0942 
1 F BLBS YABPRO™ “END, 7$ ; 
11 3$: BNEQ > 0949 
IC AC 0D PUSHL  XAB_HOLDER : 0950 
08 AC DD PUSHL FAB : 


SBR! E.MN pase ts gun ite IERIE GEES MLC, ll 


000000006 8F DD 0007: SHL #188 INVXAB : 
4 DD 0007 PUSHL ; 
4 FB 7 CALLS #4, CLE : 
1 3 ? £8 4$: CHES URRENT™ tyke), #18 > 0952 
0c : 3 0 MOVL CURRENT 5X XAB, @XABDAT + 0959 
p MOVL N ; 360 
1 } 3 + 5$: cree ( URRENT_ AXKa). #19 : 096 
10 gf D0 000 MOVL CURRENT 3X XAB, @XABPRO + 0970 
01 DO 000 MOVL RO_FND + 0971 
04 a3 p 09 6$: MOVL 4 CURRENT _RAB), CURRENT_XAB : 097 
C 9 BRB + 094 
04 00099 7$: RET + 0980 


; Routine Size: 154 bytes, Routine Base: $CODE + 02B2 


SS 
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C FILE_QUA Common file qualifier 16-Sep-1984 02:23:4 AX-11 Bliss-32 V4.0-74 Page 31 
voen000 LIBSQUAL_FILE_PARSE 19-308-1382 ¢: 4:2 VMSLIB. ROILI QUAL .832;1 . ay 
; 993 981 1 XSBTTL ab LOPOUAL PILE PARSE 
: Boe 2 § ! GLOBAL ROUTINE LTb$qual_file_parse ( flags : REF S$BBLOCK, context ) = 
: 999 gas ji 
3 238 2 § : FUNCTIONAL DESCRIPTION: 
$ 1000 9 3 1! This routine parses a selected set of command qualifiers for the 
: 1001 9 1} calling utility. A database, which describes the results of the 
; 100 990 1! parse, is set up for LIBSQUAL_FILE_MATCH to use in determining if a 
3 1007 093 ! file matches the necessary criteria. 
; 1005 938 | FORMAL PARAMETERS: 
; 1909 0995 1! flags the address of a longword of s}og erte. Each bit is 
; 1008 238 1! associated with a specific qualifier. If the bit 
; st 3444 : is set, then the qualifier should be parsed. 
; 1011 0999 | QUTPUT PARAMETERS 
: 1918 1001 1! context the address of a longword to hold the location the 
3; 1014 1008 1! quet Stee data base; the contents of this ssomeere 
3 ISI? \OOr : s passed, by the caller, to LIBSQUAL_FILE_MATCH. 
: 1017 1005 1 ! IMPLICIT INPUTS: 
3; 1018 1006 1! 
1020 1008 | | — 
> 1021 1009 1! IMPLICIT OUTPUTS: 
3; 10 ; 1010 1! 
1054 idle] | see 
F 19 5 1918 ! ROUTINE VALUE: 
: Weer 1p? ; SS$_NORMAL the routine completed successfully. 
; 1989 1017 1 LIB$_INVARG invalid argument; a bit in the flags parameter was set 
$ 10x ig : and there was no qualifier associated with it. 
: 103 1020 | COMPLETION CODES: 
3 1034 10 § 1! CLIS_INVQUAVAL an unusable value was given on the command Line for 
: 1035 10 1! any of the following quet titers: /EXCLUDE, /BEFORE, 
3 1037 + 3 } /SINCE, /BY_OWNER. (i.e. /BEFORE=mintchip or /EXCLUDE=A#A.B) 
:1 10 $ 1! CLIS_CONFQUAL more than one of the following appeared on the command 
3; 1039 10 1! Line at the same time: /CREATED, /MODIFIED, /EXPIRED, 
: inee 1% 8 : /BACKUP. 
: Hk 19 ' : Any completion status from LIBSGET_VM. 
13 is 19 : i SIDE EFFECTS: 
: ' $ } : ' : Virtual memory may be allocated to hold the /EXCLUDE List. 
:1 1 1 ine 
3 1048 1 $ 1 


<o- 
on 


i FILE_QUA Common file qualifier :23: 1 4.0- 
VOe- 006 LIBSQUAL _F ILE_PARSE 754: VMSLIB y Page 435 


BEGIN 
MACRO 
Generate string descriptors 
qdesc(n] = BIND ZNAME('qdesc_', n) = SDESCRIPTOR( n ) % 


jefejlelelolelololeo) 
SSSISAS 


OOWONAOULS WN O 


LITERAL 
max_string = 1024 ! maximum Length of a command Line 


: Declare the string descriptors which contain the qualifier names. 


adesc ( 
ONFIRM', 
"EXCLUDE", 


SESESEZE 


& 


DONAVUSWN O°” 


WN SO OONAVLS WN (COONS 


"EXPIRED', 
"BACKUP" 
' "BY_OWNER® 


vuvVVVVUUUU 
oO 
Oo 


SNS NINN 
ee ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee eee 


OOOCoCCoS»o 


FES 


BUILTIN 
NULLPARAMETER 


OoOoooooo 
tty tet tes 
MEWN—O”O 


' return status from external routines 
! qualifier database 


s 


SBBLOCK, 
buffer : ! buffer for string values 
SBBLOCKC max_string J], 
clidesc : : 

he , d3c8c_vs_oln 1. 
excl _des : ' 
REF $68 


SN NNN NOOO 


descriptor for values returned by CLI 
descriptor for file spec given by /EXCLUDE 


F232332 


WN 9 ODONOUE WN —"OO0Onou 


3 


lLast_excl blk : } 
REF SBBLOCK INITIAL( 0 P 
previove excl desc : ! pointer to previous descriptor in List 


ITTAL( 0), 
~paran 3 ! parameter block for LIBSTPARSE 
LOCKE TPASK_LENGTHO J 
INITIAL( REP TPASK_LENGTHO OF BYTE( 0 )) 


pointer to last descriptor in List 


OOOOCCOCOCOOCOOCOOOOoOoooo 


3333 


tpa 


SHURE 


ee ee ce ee ee ce ee el ee ee ee ce ee el ee ce eed ee el ee ee ed ce ee ee ce eel cel cel cel el cel cel cel eel eel cl eel cel eel els cl elt cls eel cals cel cls cl els cls cls ly 
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C FILE_QUA 
vos-000) = 


} Are any bits set in the flags parameter which should not be? 


if . flags L1BSy CQF_UNASSIGNED ) NEQU 0 
THEN RETURN( LIBS_INQARG ); 


} The CONTEXT argument MUST be specified. 


if NULLPARAMETER( 2 ) 
THEN RETURN( LIBS_INVARG ); 


! Allocate virtual memory for the qualifier data base. Pass the address 
back to the user. 


qualifier = get_zero_vm( qual_blk_len ); 
-context = .qualifier; 


! Intialize the descriptor as a dynamic string descriptor which points to 
! nothing. 


ae $SW_MAXSTRLEN J 


DSC 
DSCSB_DTYPE 
DSCS$B_CLA 


CLASS 
DSCSA-POINTER J 


Process the /CONFIRM qualifier, 
on the command Line. 


flags€ LIBSV_CQF_CONFIRM J) 
qualifier(€ confirm_present ] = CLISPRESENT( qdesc_confirm ); 


it has been selected. Set a flag, if it is 


Process the /EXCLUDE qualifier, if it has been selected. 


if .flags€ LIBSV_CQF_EXCLUDE ) 
THEN 


For each file specification in the List: 
WHILE CLISGET_VALUE( qdesc_exclude, cli_desc ) DO 
BEGIN 


Se ee ne OR ee See ee ee ee ee eee ee ee ee ee ee ee ee ee ee eee ee 


Set a flag, if it is on the command Line. 
qualifierl exclude_present ] = true; 


' Allocate some virtual memory to hold the descriptor for the file 
specification. Place it at the end of the exclude List. 


OO NAW EWN 0 OONOU EWN 0 COONAN WIN O ODNAU EWN SO OONOUS WOOO 


PUTT TI BB BS BS BB BE ANI NIIP PIPINIPININIDY 2 2 OO Ow OOO 


excl_desc_blk = get_zero_vm( excl_blk_len ); 


IF .last_excl_blk EQL 0 
THEN 


ae ee eee ee ee eet 
a ee ee et 


—QODNOAUES WN 0 OONO UES WN — O OD NAVE WIN (OO ONAU EWN OOONAUE WN" OVOONIOu 


WN BREESE PWN 


AAD 
wt 
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COMMON _FILE_QUA 
vouroug = 
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qualifier{l exclude_list ] = .excl_desc_blk 


Last excl_blkC next_excl_blk J] = .excl_desc_blk; 
prevfous_éxcl_dese = Lasf_excl_blkC extl_spec_desc J; 


last_excl_blk = .excl_desc_blk; 


Parse the file specifiction and fill in the descriptor. 


parse_excl_spec( cli_desc, 
excl_desc_blkC excl _spec_desc J, 


-previous_excl_desc, 
adesc..exclude J; 


END; ! while loop to get exclude file specs 


Process the /BEFORE qualifier, if it has been selected. 


Pt het ted tet ete RP PRN RES A 


F .flagsC€ LIBSV_CQF_BEFORE J 

HEN 
: } Set a flag, if it appears on the command Line; and retreive the value 
: ir (qualifier€ before_present ] = CLISGET_VALUE( qdesc_before, cli_desc )) 
19 1 
19 1 
i } 
19 iF NOT LIBSCVT_TIME( cli_desc, qualifierl before_value J ) 

1 SIGNAL( CLIS_INVQUAVAL, 2, cli_desc, qdesc_before ); 


' The file header needs to be read; therefore the file must be 
opened to evaluate the selection criteria. 


gual ifierl display_hdr ] = true; 


oo 
co 


; Process the /SINCE qualifier, if it has been selected. 


if .flags€ LIBS$V_CQF_SINCE J 
THEN 


: Set a flag, if it appears on the command Line; and retreive the value 
Fn aust ts fers since_present ] = CLISGET_VALUE( qdesc_since, cli_desc )) 
BEGIN 
Convert the time into 64-bit format. Signal, if this didn't work. 


DOOOOO OO OW 090909 09 09 09 0909 SININ NINN NPA AAAAAAAAOIUININTIUTIUGIVUGW 


SSSSREVLSSSVSSRIANSLSSSNSALWN—SOHNOUE UN OD WO Pun OOo SOU ane 3 


4 
4 
EN 
BEGIN 
Convert the time into 64-bit format. Signal, if this didn't work. 
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Common file qualifier 1b-5¢ 1984 02:23:47 AX=11 Bliss-32 V4.0-74 
QUAL _FILE_PARSE 1 ~Sep-19 4 96:42:35 VMSLIB.SRCILISCQUAL.83 31 
gl LIBSCVT_TIME( cli.desc, qualifier£ since_value J ) 


SIGNAL( CLIS_INVQUAVAL, 2, cli_desc, qdesc_since ); 
past tt tere display_hdr ] = true; 


: Process the /CREATED qualifier, if it has been selected. Set a flag, if it is 
on the command Line. 


if .flags€ LIBSV_CQF_CREATED ] 
THEN 


BEGIN 
qualifier€ created_present ] = CLISPRESENT( qdesc_created ); 
tld display_hdr ] = .qualifierl created_present J] OR .qualifierl display_hdr J; 


! Process the /MODIFIED qualifier, if it has been selected. Set a flag, if it 
! is on the command Line. 


dees 


PN es LIBSV_CQF_MODIFIED J 

BEGIN 

qualifier£ modified_present ] = CLISPRESENT( qdesc_modified ); 

a display_hdr ] = .qualifier€ modified_present J] OR .qualifierl display_hdr J; 


! Process the /EXPIRED qualifier, if it has been selected. Set a flag, if it is 
on the command Line. 


if .flags€ LIBSV_CQF_EXPIRED J 
THEN 


BEGIN 
qualifierl expired_present ] = CLISPRESENT( qdesc_expired ); 
gual {ttort display_hdr ] = .qualifier€ expired_present J] OR .qualifierl display_hdr J; 


! Process the /BACKUP qualifier, if it has been selected. Set a flag, if it is 
on the command Line. 


if .flagsC€ LIBSV_CQF_BACKUP J 
THEN 


BEGIN 
qualifierl backup_present ] = CLISPRESENT( qdesc_backup ); 
gust tterk display_hdr ] = .qualifierl backup_present J] OR .qualifier(€ display_hdr J; 


! Make sure that only one of /CREATED, /MODIFIED, /EXPIRED and /BACKUP was 


3S 
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' given on the command line. If none were specified default to /CREATED. 
! Check to be sure that /BEFORE or /SINCE was specified if one of the date 
qualifiers was given. 


CASE 


vO4~00 


Oo 


modified_present_] + 
expired_present_] + 
gp phe present ] 


f 0 } : quel itiert C 

1 : IF NOT .. gue 

THEN SIGNAL ( 

TES { OUTRANGE J : SIGNAL( CLI$ 


| created_present ] + 


on 
OOONAWUSWN OO =) 


100 C09 C9 C9 09. 09. 09 CD CO. 


d_present ] = true; 
rC since_pre 
QUALMISS, 1 
GUAL ); 
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sent] OR squeal [tiert before present} 
» SDESCRIPTOR('/BEFORE or /SINCE") ); 


oo 
wr 


Process the /BY_OWNER qualifier, if it has been selected. 


if .flags€ LIBSV_CQF_BYOWNER 
THEN 


Set a flag, if it is on the command Line. Get the UIC or default it. 
Fa eh et tare byowner_present ] = CLISPRESENT( qdesc_by_owner )) 
BEGIN 
hg CLISGET_VALUE( qdesc_by_owner, cli_desc ) 
BEGIN 
} Declare and initialize the item List needed for $GETJPI. 
LOC 
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AAA LSP RIP PIRIPOPOPUPUNRD 
FUN SS eNO UE UNM OOWNAOUNE WN OSM 


AL 
item_list : VECTOREC 4 ] 
INITIAL( WORD( 4, JPI$_UIC_), 0, 0, 0); 
item_listC 1] = qualifierl uic_value J; 


OOS O0 00000000 OW W090 WOOO WOO 09 I NIN NINN 
FUN OQ ODNA UE WIN 9 ODNAU EWN O OBNOAUE WN (OOO NAOUES WN O00 


WN AWN AWN 


' No UIC was given; use the current process's UIC. Since the GETJPI - 

! is being done for the current process it will be synchronous. If x 
! $GETJPI becomes asynchronous for the current process, a SWAITFR 

must be placed after the SGETJPI call. 


if NOT( status = $GETJPI( ITMLST = item_list )) . 
SIGNAL( .status ); 


qualifier( uic_wldmem i 
oO ak ag uic_wldgrp 


— ss 


SOoooooo 
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WIAA A.A. AAA AIA AI IP PINIPIPIPIPIPPUPINIPINPYIPIPIPINIPOPPYPIPUPIPIPIPOPIPOPPNPUNINY 


= false; 
= false; 
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ELSE 
BEGIN 


' A value was given on the command Line. Prepare to parse it. 
! Initialize the TPARSE parameter block. The PARAM field of the 
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youn 00 QUAL _F ILE_PARSE 16- Se0-1984 96:92 $f VMSLIB.SRC TIBCMUAL 63351 
will contain the address of the qualifier data base, so that 

the action routine may access the structure. 


tpa_ param{ TPASL_COUNT J = TPASK_COUNTO; 


L1B$ 
3 3 1323 4 
3 4 1326 4 
4 1: 
31 1 § 4 tpa_paraml TPASL_STRINGCNT ] = .cli_desc DSC$W_LENGTH j; 
: 1340 1 8 4 tpa_paramt TPASL-STRINGPTR } = .cli-desc DSCSATPOINTER 4; 
; ! ‘} ! 4 ? tpa_paramL TPASL_PARAM J = .qualifier; 
3 i 43 4 ! Parse the UIC and check the validaty of the results. 
: 1345 1 4 cootue = LIBSTPARSE ( tpa_param, ic_states, ic_keys ); 
: 1548 1334 4 IF NOT .stat ~_ eatin nessa aboot 
3 1 1335 4 THEN 
> 1348 1 $ 4 IF .status NEQ SS$_NOSUCHID 
3 1349 1 4 TH 
: 1 29 1 8 ? SIGNAL( CLIS_INVQUAVAL, 2, cli_desc, qdesc_by_owner ) 
:1 2 1340 4 SIGNAL( CLIS_NOSUCHID ); 
3 : 2 ! ol END; 
; 1355 1 rk pest ierers, display_hdr ] = .qualifier£ byowner_present J] OR .qualifierl display_hdr J; 
§ 1328 1344 ND; 
3; 135 1345 
; 1358 1346 
: 1359 1347 RETURN SS$_NORMAL; 
3; 1360 1308 
; 1361 1349 1 END; ! End of routine Lib$qual_file_parse 
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4D 52 49 46 GE GF 43 0034 P.AAL: ASCII \CONFIRM\ 
00000007 Migtt P.AAK: .LONG 7 
00090009" 0538 “ADDRESS P.AAL 
45 446 55 4C 43 58 4 0 3 P.AAN: “ASCII \EXCLUDE\ 
00000007 00364 P.AAM: .LONG 7 
00090009" “ADDRESS P.AAN 
45 52 4F 46 45 4 P.AAP: -ASCII \BEFORE\ 
9000000 74 P.AAO: .LONG 3 
0090 9 * 00378 “ADDRESS P.AAP 
45 43 4E 4 gC P.AAR: “ASCII \SINCE\ 
5088086 P.AAQ: =LONG : 
, “ADDRESS P.AA 
44 45 54 41 45 4 P.AAT: “ASCII \CREATED\ 
00 000 7 P.AAS: .LONG rs 
0° “ADDRESS P 
44 45 49 466 49 46 af : 26 B-AAV: he \MODIFIED\ 
5q 0009000 * 003A8 © ADDRESS P.AA 
44 45 52 49 4 A P.AAX: ASCII \EXPIRED\ 
99900007 P.AAW: .LONG 
0’ 00388 “ADDRESS P.AAX 
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C FILE_QUA Common file qualifier 1b-Se -1984 02:23:4 AX-11 Bliss-32 V4.0-74 Pa C 
youn 800 LIBSQUAL. FILE PARSE eae ra re Gt Pee oe 8 V 
50 55 4B 43 41 42 BC P.AAZ: .ASCII \BACKUP\ ; ; 
C -BLKB é ; 
88 2000 5 tc Means coe TT ; 
52 465 4E 57 GF SF CC P.ABB: .ASCII \BY_OWNER\ : 3 
(°00# OO3DE P.ABC: “BYTES OLSeq 
4E 49 53 2F 20 72 6F 20 45 52 4F 46 45 42 f 4 P.ABE: .ASCII \/BEFORE or /SINCE\ F : 
411 -BLKB 3 ; 
900 11. 00414 P.ABD: <LONG 17 ; ; 
00" 418 “ADDRESS P.ABE ; : 
00000000 00000000 00000000 0042 :LONG 0, 0, 0 : : 
QDESC_CONFIRM= P.AAK ; 
QDESC_EXCLUDE= P.AAM $ 
QDESC“BEFORE= P_ AAO ; 
QDESC“SINCE= P.AAQ : 
QDESC~CREATED= P. AAS ; 
QDESC“MODIFIED= P. AAU ; 
QDESC"EXPIRED= P. AAW ; 
QDESC_BACKUP= P.AAY : 
QDESC~BY_OWNER= P. ABA ; 
TEXTRN SYSSGETJPI ; 
OFFC 00000 ENTRY LIBSQUA FILE Ps PARSE, Save R2,R3.R4.R5,R6,.- ; 0982 ; 
5B 000000006 00 9€ 00002 MOVAB oC {SPRE SENT # i : ; 
5A 000000006 00 9€ 00009 MOVAB LIBS$SIGNAL, R10 : ; 
59 95 AF 9E 90010 MOVAB ODE St BY BY OUNER. RI : : 
SE FBC4 ce 9E 00014 MOVAB p : : 
7€ 00019 CLRQ. —sLAST “EXCL “BLK 1038 : 
10 AE 08 Ag 24 28 0001B MOVC3 #36,~P.ABC, TPA_PARAM > 108° : 
53 04 AC 00 00021 MOVL FLAGS, R : 1098 ; 
00 63 17 09 FD 0025 CMP2vV #9, #23, (R3), #0 : ; 
OA 1 00 A BNEQ ; : 
02 6C 91 0002C CMPB ss CAP), «#2 + 1104 ; 
05 1F OO02F BLSSU_1$ ; ; 
08 AC 05 00031 TSTL (AP) : ; 
08 12 000 BNEQ $ : : 
50 000000006 &F 06 6 1$: OVL #LIBS_INVARG, RO + 1105 ; 
0 DD 2$: PUSHL #32 : 1111 ; 
FBBO cr 1 Ff 4 CALLS i. GET HERO, vm : ; 
6 0 D 4 MOVL ; : 
8 BC 6 D 4 MOVL wi alti ‘acowte ; 1112 ; 
4 AE 0200099 F D at MOVL : 111 ; 
AE D4 CLRL cL] D ested : 1120 ; 
08 6 9 7 BLBC =—.—sa(R3BV : 11 3 : 
80 Ad SF A PUSHAB aQDES¢ ie : 11 : 
gi FB CALLS #1, cri PRESE ; : 
66 01 0 F INSV RO. #5, #1, (QUALIFIER) : : 
43 4 01 €1 3$: BBC (R$), 7S ; 1132 ; 
34 AE F as: PUSHAB CL{_ DESC : 11 : 
0 ad 9F 0006C PUSHAB aQDESC_EXCLUDE ; : 
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C FILE_QUA Common file qualifier 16-Sep-1984 02:23:47 AX-11 Bliss-32 V4.0-74 Pa 9 
yoae 000 LIBSQUAL_F ILE_PARSE 19-808-1 3b 96:92:38 VMSLIB SRETLISCOUAL .03951 9 435 
000000006 9 F F CALLS #2, : ISGET_VALUE : 
f § BLBC RQ, ; 
é BISB2 #2. (QUALIFIER) : 1148 
C DD ¢ PUSHL #12 + 114 
FB72 ct i Ff 43 CALLS #1, GET-ZERO_VM ; 
2 9 D MOVL RO, EXCC_DESC_BLK : 
p Ist LAST _EXCE_BLK + 1150 
046 Ab 1 p A MOVL EXCL_DESC_BLK, 4 (QUALIFIER) : 1152 
7 g 0 5$: MOVL EXCL DESC_BLK, (LAST_EXCL_BLK) + 1155 
: 06 =A i 3 MOVAB 4(R73, PREVIOUS EXCL ~DESC ; 1136 
52 6$: MOVL —_ EXCL_BESC_BLK, CAST_EXCL_BLK + 115 
90 Ad 9F OO09A PUSHAB aQbDESC EXCCU + 1165 
58 DD 0009D PUSHL PREVIOUS EXCL_DESC + 1166 
04 A2 9F 0009F PUSHAB 4(EXCL_DESC_BLK) > 1165 
40 AE 9F O0A2 PUSHAB CLI_DESC + 1164 
FB84 OCF 04 FB OOOA CALLS #4, PARSE_EXCL_SPEC + 1165 
D 11 OOOAA BRB 4$ + 1137 
3A 63 2 €1 OOOAC 7$ BC #2, (R3), 9$ + 1174 
34 AE OOF 9080 PUSHAB CLI_DESC + 1179 
AO AD. OOF 9008 PUSHAB QDESC_ BEFORE : 
000000006 00 02 FB 00CB6 CALLS #2, CCISGET_VALUE ; 
66 01 0¢ 50 F 08D INSV RO, #2, #1,~ (QUALIFIER) ; 
2 50 £9 ce BLBC =O, -*9$ : 
08 A6 SF 000C PUSHAB 8 (QUALIFIER) > 1185 
AE 9F 000C8 PUSHAB CLI DESC : 
000000006 00 08 FB 000C CALLS #2, LIBSCVT_TIME : 
11 E8 000D BLBS RO, &$ : 
AO AS SF 000D PUSHAB QDESC_ BEFORE : 1187 
38 «AE OF 00008 PUSHAB CLI_DESC : 
02 DD 000DB PUSHL # : 
0003132c 8F DD do0p PUSHL #201516 ; 
6A 4 FB OO0E CALLS #4 L1BSSIGNAL ; 
” A 0 88 000E6 gs: BISB #32, (QUALIFIER) : 1192 
3A 6 3 a OOEA 9$: BBC #3, (R3), 118 : 1198 
34 AE OOF OOEE PUSHAB CLI_DESC + 1203 
BO AS 9F OOOF PUSHAB DESC SINCE : 
000000006 0 ; F OOF CALLS 2, cr GET_VALUE : 
66 01 0 FO OOOF NSV RO. #3, #1, 7 (QUALIFIER) : 
25 0 F 1 BLBC =_«aRO,._«*1§ ; 
10 A6 SF 001 PUSHAB 16(QUALIFIER) : 1209 
38 «AE «OOF (001 PUSHAB CLI_DESC ; 
000000006 00 9 FB 1 CALLS #e, LIBSCVT_TIME : 
11 F 1 LBS.séR $ : 
80 AS «SF 0011 PUSHAB QDESC_ SINCE : 1211 
AE OF 118 SHAB CLI_DESC ; 
DD 0011 PUSHL # ; 
0003132¢ 8F DD 118 PUSHL #201516 : 
6A 4 FB 001 CALLS # ul $SIGNAL : 
1C ag 0 88 00124 10$ BISB2 #32, (QUALIFIER) > 1213 
1F 6 4 f 128 11$ c #4, (R3), 1 : 1 30 
CO AD SF O018C PUSHAB QDESC CREATED : 1 
1 FB 10F CALLS #1, CCISPRESENT : 
1 4 0 FO 001 3 INSV RO, #4, #1, (QUALIFIER) ; 
66 1 4 EF 00137 EXTZV #4, #1, (QUALIFIER), RO > 1225 
1 1C 1 5 EF 0013¢ EXTZV #5. #1. 28(QUALIFIER), R1 ; 
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C FILE_QUA 
voo-000) = 


3; Routine Size: 


Common file 


LIBSQUAL_F ILE_PARSE 


6E 
01 A6 
1¢ =A6 
01 


699 bytes, 


ualifier 
2 
48 OA 
04 AE 


000000006 53 


Wwe ss 
on7r@wo o 
> 
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000000006 99 0 
2 
000021EC F 
38 8 
0003132C 8 

6A 8 

0003135C 00 

on op 

01 § 

50 00 

05 8 

50 8s 

00 


Routine Base: 
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SCODE + 042C 


ue 
-sep- 
~Sep-1 


22$: 
238: 


24$: 
25$: 


268: 


bc 19:82:35 | Mimstle®SaeSiiscauar -039;1 


RO 23$ 
#16, P.ABF, ITEM_LIST 
24(R6), ITEM_LIST#4 


-(SP) 
ITEM_LIST 
=(SPJ 

-(SP) 

#7, SYSSGETJPI 
0 STATY 
STATUS, 22$ 
STATUS 

#1, : BSSIGNAL 


 ] (QUALIFIER) 
25§ 


RO 
STATUS, 25$ 
STATUS, #8684 


RY 
CLI_DESC 
# 


#201516 

#4, LIBSSIGNAL 
#201564 

#1 


, LIBSSIGNAL 
#0. #1, 1(QUALIFIER), RO 
#5. #1, 28(QUALIFIERS, R1 
RO. #5, #1, 28(QUALIFIER) 
#1, RO 
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ommon file qualifier 16-Sep-1984 02:23:4 AX-11 Bliss-32 V4.0-74 P 4 
TBSCONFIRM_ACT 1o-88b-19be 99:42:83 VMSLIB.SRCILISCQUAL .B32; 1 a9 425 
ZSBTTL "LIBSCONFIRM_ACT' 
GLOBAL ROUTINE LibSconfirm_act( prompt_string, prompt_args, prompt_rtn ) = 


FUNCTIONAL DESCRIPTION: 


LibSconfirm_act prompts the user with a given string and evaluates 
answer. A value is returned a positivte and negative 
responses. The user may also request to quit processing or continue 
processing and cease prompting. 


FORMAL PARAMETERS: 


prompt_string: address of a Goscrieter for an $FAOL control string to 
be used as a /CONFIRM prompt. 


prompt_args : address of argument List for SFAOL call. This parameter 
is optional. 


PAA AOOOVUIMIVIVIVIVIVIVGT @ 


SOONAVE WN SO DOONAN LEWIN OO OONOAUE AR OUOONOUSWN—O 


prompt_rtn ddress of user's prompt routine, in case 


a 
LIBSGET_COMMAND is inappropriate. This parameter is 
optional. The routine is called with the address of the 
descriptor for the expanded prompt string and the 
address of the answer descriptor. 
IMPLICIT INPUTS: 

None 
IMPLICIT OUTPUTS: 

None 
ROUTINE VALUE: 

SS$_NORMAL : positive answer 

LIBS_NEGANS : negative answer 

LIB$_QUIPRO : quit processing | 

LIBS_QUICONACT : continue processing, but cease prompting 


COMPLETION CODES: 


OO OOO 0000 09 09 09 69 09 09 09 09 SII NI NINN NNN NOOO 


Fwn— 


Any $FAOL return or value returned from the caller's prompt 


ee ec me ce ee ee em a ee ee ee ed ae a ed ed dd ed od dd ed ro 
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4 routine. 
$7 SIDE EFFECTS: 
39 None 

1 am 

é BEGIN 
86 Ber OLLPARAMETER 


COMnOH FILE QUA Common file gel itter 1b-5¢ Sep-1984 + 98: $233 AX-11_ BLi ieqr teckai -0-7 Page 43 


LIBSCONF IRM_. -Sep-1984 VASLIB™ SR UAL. b3 31 (14) 
LITERAL 
prompt_max_str = g°6. ! Maximum Length of the /CONF prompt 
answer _max “str = i Maximum Length of the answer 
LOCAL 
rtn aStetus ' Status returned from external calls 
prompt 5 ffer ! Buffer for /CONFIRM prompt 
ECTOR prompt_max _str, BYTE J. . Gens teak i aes 
r escriptor for the prompt strin 
PrompABLOCKC DSCSK_S_BLN J, f AaeRee . 
answer TOR fan ! Buffer for user's answer to /CONFIRM prompt 
VECTOR C answer _max_str, BYTE J, 
answer desc ! Descriptor for the answer string 


SBBLOCKC DSCSK_S_BLN J 


Initialize descriptors for the prompt and the answer. 


arene. desc Sw =benern = cose max str; 
prompt_desc $B_DTY 4 = DSCSK_BTYPE_T 

prompt_desc $B-C = DSC$K-CLASS “$3 
prompt_desc $A_P = prompt_buf fer; 


DSCSK_DTYPE_T; 
DSCSK_CLASS_ “S; 
answer _buf fer; 


INA AN AAI AIPM SOOO CD 


WO OO NO UE WN 0 ODN UEWIN 8 OD NAME WN OC OONOU FSW OCONOULS WOOO 


answer_desc 


his 

DSC 

DSC LAS 

DSCSA_ LOATER 

osc 

DSC 
answer_descl DSC 


answer_desc $B_DTY 4 
$B" CLAS 
$A_ POINTER 
: Use SFAOL to insert the prompt arguments into the the prompt string. 


if NOT( RTN_STATUS = SFAOL( CTRSTR = .prompt_strin ng 
OUTLEN erenets desct Scsw_ LENGTH J, 


Cir PPRUCLEARANE TER 2) 
0 ELSE .prompt_args ))) 


Se? at et ot et th oh oh 


vuvuvv 
a ee a ee ee ee ee a ee ee ee ee a a a ee ed 
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THEN 
SIGNAL( .rtn status ); 


SELES 


Prompt the user for consent to do whatever to the current file. If the caller 
wishes, ,do not use LIBSGET_COMMAND. Do not accept anything except legal 


o 
w 


ee es 
Ler reo 
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PEGA MT IYIMIIIUTIUTION SS 


answers! 
89 
68 0 
$% IN 
0 qnever descC€ DSC$W_LENGTH ] = answer_max_str; 
a! 4 af ( NUCLPARAMETER("3 )) 
ig rtn_status = LIBSGET_COMMAND( answer ~gesc. 
74 prompt_ 
75 answer “descl DSCS$W_LENGTH J > 
76 ELSE 


C FILE_QUA Common file qualifier 16 Sep-1984 AX-11 Bliss-32 V4.0-74 Page 44 
vOe- 000 ‘ LIBSCONFIRM_ACT “320-1944 98 $33 VMSLIB.SRC (ISCUUAL .B3: * . 
; 1477 1464 IF NOT( rtn status = (.prompt_rtn)( prompt_desc, answer_desc )) 

; 1078 1? 5 THEN RETURN” .rtn_status; 

: 1 : 1487 Does the user wish to quit processing (“*Z for an answer)? 

; 14 : 1285 iF -rtn status EQL RMS$_EOF 

3; 14 1470 THEN RETURN LIB$_QUIPRO: 

3 14 1471 

>; 1485 1a%8 END 

; 1058 147 UNTIL ((rtn status = legal_answer( answer_desc )) NEQ 0); 

: 148 1474 

3 1358 1475 RETURN .rtn_status; 

3; 14 1e78 

; 1490 147 END; ! End of routine LibSconfirm_act 


-EXTRN SYSSFAOL 


0004 ENTRY LIBSCONF IRM ACT, Save R2 : 

FEES CE i 0 MOVAB =-280 S : 

10 AE 010E01 8F D 0 MOVL #1 B5297% PROMPT _D : 

14 1 AE i OF MOVAB PROMPT 8 BUFFER PROMPT _DESC+4 : 

02 AE 0108 BF B 14 MOVW WER ; 

4 08 AE 9E OOO1A MOVAB  ANSW SE nagUFFER. ANSWER. DESC+4 ; 

6C 91 OOOTF CMPBss«CAP*), BF F 

0S iF 2 BLSSU_1$ : 

08 AC D5 4 STL CAP) : 

04 1 7 BNEQ $ : 

7E D4 9 1$ CLRL  =(SP) : 

03 11 B BRB 3$ : 

08 ac DD D 2s PUSHL PROMPT_ARGS ; 

14 AE OF 9 $ PUSHAB PROMPT ~DESC : 

18 AE OF PUSHAB PROMPT ~DESC : 

04 AC DD PUSHL PROMPT~STRING : 

— M5 5B 9385 GAUL bs TRB : 
36 2g E 23 LBS §_RTN_STATUS, 4 : 

DD 46 PUSHL “STATUS : 

000000006 00 or FB 4 CALLS #1, LIBSSIGNAL ; 
oF 8 2 4F 4$: VW #8. ANSWER_DESC ; 

0 6¢ 1 5 CMPBs«CAP), #3 ; 

0c a AE S008 ihe Ss cap) ; 

i 3 sh NEQ ig $ 

SE DD C 5$ PUSHL SP ; 

16 AE OF 3 PUSHAB PROMPT_DESC ; 

08 AE 9F 0006 PUSHAB ANSWERDESC : 

000000006 F 64 CALLS #3, LIBSGET_COMMAND : 
p 68 VL —s- RO, :«RTN_STATUS : 

F : BRB i: : 

E po 6$: PUSHL : 

76 «AE OOF 0007 PUSHAB SROMPT DESC ; 

0c F 7 CALLS ts @PROMPT_RTN ; 

16 b9 o007¢ Beye = ORTMLSTATOSS 

0001827A BF D1 OOO7F 7S: CMPL RING STATUS, #98938 : 


ego 


; Routine Size: 


QUA Common file 
LIBSCONF IRM_ 


160 bytes, 


que alifier 


50 000000006 


FACE gf 


50 


Routine Base: 


SCODE + 06E7 


8$ 
ae mee RO 


pe RO 


vy q 
5 PB 0009 
NE 
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N_FILE_QUA Common file qualifier 18-Sep-1984 9: 3:4 AX-11 ah aes Page 46) 
yOa~000 = LIBSQUAL. FILE MATCH 14-Sep-1984 15:54:2 VMSLIB.SRCJL -B32; | 
*"LIBSQUAL_FILE_MATCH' 
; 1238 12 : EPBBAL ROUTINE (rbSqual fite.match ( context 
: 1480 1 user_fab : REF SBBLOCK, 
1498 1481 1 filesname : REF SBBLOCK. 
1298 14 1 prompt_string, 
: 1299 14 : 1 prompt _args 
: 1498 1484 1 prompt_rtn 5 = | 
3; 1499 1485 4 | 
; 1500 1 $ ! j++ | 
i 03 1488 1 FUNCTIONAL DESCRIPTION: 
i Se 1290 : LibSqual_file_match determines if a given file matches the selection 
: 128? 1491 1! criteria given in the command Line. | 
: i 
: 1809 1298 | FORMAL PARAMETERS: | 
1209 1298 : : context : address of longword containing pointer to the qualifier | 
+ 1510 1496 1 | data base. 
; 1213 1298 | i : be evaluated. This FAB must 
1318 1299 : wyited ae cele te VaLig NAM Block. if the user already has the 
48] 1500 1 | the file open and the file header criteria are to be 
: aig 1501 1! evaluated, the appropriate XAB's must be chained to the 
1a 1502 1! AB. If the file is not open when this routine is 
: 1849 1308 1: called, then the XAB chain is not peeggnery, but may be 
: 1816 1504 1! present. This argument is optional; if it is not given 
: 1819 1505 1! the file name parameter MUST be present. Both arguments | 
; 1396 1506 1! may not Be present att he same time. | 
; 132 1208 4 i : i for the file name of the file 
ae : 1309 i en : ete sedloseste | 1, pareneter may be used instead of | 
: 43 1510 1! the user_fab argument. It is optional. | 
: 1838 1311 7! NOTE: LIBSQUAL_FILE_MATCH does not do either a SPARSE | 
; i 131¢ 1/ or a S$SEARCH with the given file name. | 
1387 13] 1 i : iptor for an $FAOL control string to 
: 1358 1348 i sich ete yt +3 : veer IRR prompt. This parameter is 
; 18% 1516 1! optional, if /CONFIRM is not being processed. | 
; 1531 1517 1 | oleae | 
: : address of argument List for SFAOL call. | 
/ 1833 1319 i psetrseithcs pegs B is Eotionel. | 
; 12 1259} i : . t routine, in case 
1832 138 i = : oiaseer ot mua is? inappropr ate. This parameter is 
aE 12 : 1! optional. The routine is called with the address of the | 
: 133 15246 1! descriptor for the expanded prompt string and the | 
: i + +> oe oe address of the answer descriptor. | 
4 i | 
; 1824 13 j i IMPLICIT INPUTS: 
: 4 
; 1348 12 : : None 
: 1848 13 : IMPLICIT OUTPUTS: 
3 1 rk] 
; 154 15 . 4 None 
: 1347 1534 1! 
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MF wn— 
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ualifier 
QUAL _FILE_MATCH 


! ROUTINE VALUE: 
$S$_NORMAL 
LIBS_FILFAIMAT: 


LIBSQUIPRO 


LIBS_INVARG 


AX=11 tg 
VMSLIB.SRCILIBC 


the file matches the criteria and may be processed. 


the file failed the evaluation and should not be 
processed. 


quit processing; the user requested the processing 
cease. 


caller passed both the user_fab and file_rame 
arguments or neither of them or the context parameter 
was not given. 


invalid XAB chain; a neccessary XAB (XABPRO or XABDAT) 
was missing from the opened file's XAB chain. 


Any completion code from SOPEN, $FAOL or the user's prompt routine. 


i COMPLETION CODES: 
i None 
i SIDE EFFECTS: 


1 

1 

' 

1 

1 

' 

' 

{ 

! 

! 

' 

1 

! 

' 
LIBS_INVXAB 
i 

' 

! 

' 

i] 

1 

i] 

' 

' 

None 
i] 


BUILTIN 
Pree ree 


LOCAL 


rsa_buffer 


REF $BBLOCK, 


nam : 
REF S$BBLOCK, 
xabpro : 


VECTOR NAMSC_MAXRSS, BYTE J, 


Status returned from external calls 
address of qualifier data base 


Resultant name buffer 


! Expanded name buffer 
' Local date XAB 
Local protection XAB 


Local name block 
Local FAB 


NAM block 
Protection XAB 
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900-000 BSQUAL _F ILE_MATCH 132388-1 382 98; 2:35 VMSLIB’SRESLIBCOUAL .3 31 


c- 
— 


1 ~ SBBLOCK, 
a ; 
REF S$BBLOCK, 

xab_holder, 


Date XAB 


temporary pointer to user's XAB 
chain (used if file is closed) 
file_date : Pointer to file selection date 

REF VECTOR, 
q . 


ual_date : 

REF VECTOR, 
result_desc : 
vetton C 2), 


xcl blk : 
REF $BBLOCK 


BIS 


AAAS 


See bantam 


NOUS WN $$ O ODNOAOUE WN (OOOO UE WN (OVO ONOU SW 


Pointer to command selection date 


Descriptor for resultant file name 
e 


Pointer to the current exclude block 


Establish the condition handler. 
.FP = LIB$SIG_TO_RET; 


! Retrieve the address of the qualifier data base. If the caller didn’t give it 
to us, then give up. 


IF _NULLPARAME TER ( 1) 
_ RETURN( LIBS_INVARG ) 
qualifier = ..context; 
4 
4 
4 


! If user previously responded shot ecorees ns be terminated (*Z or QUIT) to 
a 


a /CONFIRM prompt, then ret:irn LIBSQUIPRO status. 


POPP 2 2 2 2 BQO OOO COCO OOOOOOOOOO 


CNOA WNE WP = 9 OO NOAUES WIN = DO ONA UNE WIN OOD NA UNE WIN OOO NAME WW O OONOUS wry 


Ww 


if .qualifier€ quit_processing ) 


MORIN 


RETURN( LIBS_QUIPRO ); 


ed eed ad ee ae ee ee ce ce ee ee en ee ce cd a el cn ee a ee a cae ce a a a ee ee ed ee cd ee ee cet ee ee el ec ee ec ee ce a ee ee ee cc 
chetebabababababatlabluiababububabahbabababababaiad. tathoehaiabababuiatciabubeiabuisbababubaimubabubabwiiuiadaalaiabasl 
PAAAAAAAAAAAAAAA A AAAAAAAAAAAAAAAAAAAAAOOOAMIVIMNVIVIGIVG 


2 
v1 5 : Check the mutually exclusive parameters. 
64 3 if NOT NULLPARAMETER( 2 ) 
64 3 THEN 
o8 3 BEGIN 
o30 IF NOT NULLPARAMETER( 3 ) 
$36 RETURN( LIBS_INVARG ); 
654 4 ' Is the file open? 
$2? 4 ! 
6 § 64 IF .user_fabC FABSW_IFI ] NEQ 0 
65 64 HE 
658 64 qualifier€ file_open ] = true 
659 64 
660 64 
661 64 qualifierl file_open ) = false; 
662 64 xab_holder = .uSer_fabC FABSL_XAB J; 


' 
| 
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C FILE_QUA Common file qualifier 15-98 =1984 02:23:4 AX-11 Bliss-32 V4.0-74 
youn 000 m LIBSQUAL_F ILE_MATCH 12-88-1382 ¢: 4:2 VASLUI’ SREILTSCOUAL .03551 
we = 
: 199? 183 ' Remember that it is the caller's FAB, not our own. 
; 1869 16 quali fierL callers_fab ) = true; 
; 1668 1654 ab = .user_fab; 
3 1992 1655 END 
; 1670 16 8 ELSE 
: 1671 165 IF NOT NULLPARAMETER( 3 ) 
3 1ol¢ 1928 THEN 
ee 1 — 
: 1e5¢ 1861 ! Initialize local RMS control blocks. 
: 1676 1906 ! 
3 1677 P 166 SNAM_INIT( NAM = Lcl_nam, 
3: 1678 P 1664 RSA = rsa_buffer 
: 1679 P 1665 RSS = NAMSC_MAXRSS, 
; 1680 P 1998 ESA = esa_buffer 
: 1681 1667 ESS = NAMSC_MAXRSS ); 
; 1883 P 1669 $FAB_INIT( FAB = Lcl_fab 
> 1684 P 1670 FNS = file ramet DSC$W_LENGTH J 
> 1685 1671 FNA = .file-nameL DSCSA-POINTER 4, 
3; 1686 1676 NAM = Lcl_nam ); 
3: 1687 167 
>; 1688 1674 qualifier£l file_open ] _ = false; 
>; 1689 1675 ualifierl callers_fab J] = false; 
: 1690 1676 ab = lcl_fab; 
3; 1691 1677 : 
: 1696 1678 ! Parse the file spec to be sure it’s okay. 
3: 169 1679 ! 
3 109 e's 4 IF NOT (rtn status = SPARSE( FAB = .fab )) 
: 1998 1086 RETURN .rtn_status; 
> 1698 1684 END 
Me | goa 
: 1701 1889 ! Neither the file name or the FAB was given, and we need at least 
3 1708 1688 ! one of them. 
: 170 1689 ! 
3; 1704 1690 RETURN( LIBS_INVARG ); 
. nts} 
; 1509 1898 
3 1708 1694 
: 170) 1992 Evalulate the file header criteria. 
: 1711 1899 iF .qualifier£ display_hdr J 
: a 1998 THEN 
tha 1900 ee 
: Har i? 1 Find the necessary RMS control blocks. 
; 1719 17 : find_rms_blocks ( qualifier, 
: ini3 1704 -fab, 
3; 171 1705 xabdat, 


——$—<—— - ~~ 
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COMMON FILE_QUA Common file qualifier 16-Sep-1984 02:23:4 AX=11 Bliss-32 V4.0-74 Page 50) 
yoe~000 = LIBSQUAL_FILE_MATCH 19-808- 1382 9G: 4:2 VMSLIB.SRCILISCQUAL 83 31 . aay 
; 1720 17 xabpro 
: 1721 17 5 lel xabdat, 
, 7 § 17 8 icl_xabpro, 
; \f 7 44 .xaB_holder ); 
$ 1725 1711 ! If /BEFORE or /SINCE were given on the command Line, compare the 
3 i § ar appropriate file dates to the ones the user requested. 
5 1728 1714 if .qualifierl before_present] OR .qualifierl since_present J 
He oer in rs | 
: 4 : 1717 Point to the appropriate date in the file's XABDAT | 
; \7 1718 SELECTONE true OF | 
: 1735 1721 C .qualifier{l created_present J] : ! Creation date was requested 
: if : if ; ile_date = xabdatl XABSQ_CDT J; 
: 1738 1724 C .qualifierl modified_present J] : ! Revision date was requested 
: 1739 1735 3 file.date = xabdatL XAB$Q_RDT J; | 
5 1741 1787 C .qualifier(€ expired_present J] : ! Expiration date was requested 
: inte Wy 3 file_date = xabdat{ XABSQ_EDT J; 
5 1744 13% C .qualifierl backup_present J] : ! Backup date was requested 
: 1745 1731 file_date = xabdatC XAB$Q_BDT J; 
We Uk “ | 
: 1748 1734 | 
$ Ho} 1732 /BEFORE was on the command Line | 
: 1751 1737 3 if .qualifier€ before_present ] 
3 1736 1738 3 THEN 
To ae 
: 1755 1741 4 ! Point to the date given on the command Line. 
: 1756 1oe6 4 ! 
3 Hats oF ? qual_date = qualifier( before_value J; 
; 534 12g ? : Compare the file's date to the one on the command Line. 
3 1761 1747 4 if .file_dateC_1 ] GTRU .qual_dateC_1 J OR 
3 1706 Ho ? uot tle_datel 1] EQLU ‘qual dateL 1] AND .file_datel 0 ] GEQU .qual_datel 0 J) | 
; 1764 1730 4 RETURN clean_up( .qualifier, LIBS_FILFAIMAT, .fab, .xab_holder ); | 
ie igo 
> 1768 1754 
g 119? 1755 ! /SINCE was on the command Line 
3: 1770 1726 ! 
3 107) 1? IF .qualifierl since_present J 
‘im img om 
: 1775 1761 4 ' Point to the date given on the command Line. 
3; 1776 1762 4 : | 


—— eo > 
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qual_date = qualifier£ since_value J; 


C N_FILE_QUA 
yoe~000 > 


ao 
UMW 


Compare the file's date to the one on the command Line. 


iF .file_dateC 1.) LSSU .qual_dateC_1 J_OR 
(.file_datel 1 J] EQLU .qual_datel 1 ] AND .file_datel 0 ] LSSU .qual_datef 0 J) 


RETURN clean_up( .qualifier, LIBS_FILFAIMAT, .fab, .xab_hoider ); 
END; 


0909 00 09 COCO CB CO II 
y styet one Pi 


DOONAN 


/BY_OWNER was given on the command Line. 


IF .qualifier€l byowner_present J] 
THEN’ pape us 


ooonono 
GRANTS 


Compare the UIC of the file to the UIC given on the command Line. 


if NOT (( .qualifierl uic widgrp ] OR 
snabprot XABSU_GRP ] EQL .qualifierl uic_group J) 


N 
( .qualifier£€ uic_whdmem J} OR 
-xabprol XABSW_MBM J] EQL .qualifier€ uic_member J)) 


RETURN clean_up( .qualifier, LIBS_FILFAIMAT, .fab, .xab_holder ); 
END; ! File header criteria evaluation 


BVISSeVE 


ar 


Evaluate the file mame criteria (/EXCLUDE). 
iF .qualifierl exclude_present ] 
THEN 

BEGIN 


oo 
SSIS 
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20009 909000000 000000 00 09 09 00 00 09 09 G0 00 09 09 00 00 09 00 09 OD 09 09 09 09 09 09 SIMI SISISISISISISSISNNINNNININININSIS 
me ee ee ee ee em a ee ee ee ed ed ed ed ed od od od = = 3 od dd dd = dD rao 
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10 
V 
13 99 ! Get the current file's name. Use the resultant file name, if it is 

14 00 !' present (the file was previously opened). Otherwise, use the expanded 
1? Bs } name string. 
17 08 nam = .fabC FABSL_NAM J; 

18 04 IF_.mamC€ NAMSB_RSC J NEQ 0 

19 05 THEN 

0 8¢ BEGIN 

1 resus £ doses, 0 } = ,nam{ NAMSB_RSL J; 

¢ Hit result_desc( 1 ] = .maml NAMSL_RSA J; 

4 10 

5 11 BEGIN 

$ \ resu) t_desch 9 } = ,mnam( NAM$B_ESL J; 

81 result_desc = ,mam& NAMS$L_ESA J; 

8 814 END; 

6 1 

1 13 ! Compare the file name to the file prec itications in the exclude list, 
3 18 ' If a match is found, then LIBS_FILFAIMAT should be returned, indicating 
3 19 ! the file is to be excluded. 
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1 com 
LIBSQUAL_F ILE _MATCH 14- 


v0vo 


3 7 1 ! 

3 18 5 } ? excl_blk = .qualifier£ exclude_list J; 

24 1858 WHILE .excl_blk NEQ 0 | 
3; 1 1824 dO 

3 1 1825 4 BEGIN 

: ier : § 2 IF MATCH( result_desc, excl _blkC excl_spec_desc J ) 

: 136 i 8 2 RETURN clean_up( .qualifier, LIBS_FILFAIMAT, .fab, .xab_holder ); 

> 1844 1830 4 excl blk = .excl_blkC next_excl_blk J; 

: 1eeg ! 1 END; 

:1 23 1 § END; ! File name criteria evaluation 

 1Be9 1833 

; 1939 1 § Evaluate the user selection criteria (/CONFIRM). 

: 1326 1838 if .qualifierl confirm_present J 

; 185 1839 THE 

fe athe nae 

; 1338 1846 The prompt string must be present if /CONFIRM is to work. 

: 1858 1844 IF NULLPARAMETER( 4 ) 

3 $9 9k: THEN RETURN clean_up( .qualifier, LIBS_INVARG, .fab, .xab_holder ); 

5 1861 18c? ! Prompt for the user's opinion about the current file. If necessary, 

: 1866 Hb 44 turn off further prompting. Return the user's answer to the caller. 

; 1864 1856 rtn_status = LibSconfirm_act( .prompt string 

> 1865 1851 4 CIF NULCPARAMETER( 5 ) 

3; 1866 1936 3 THEN 0 ELSE .prompt_args ), 

3 1867 1855 4 (IF NULLPARAMETER( 6 ) 

; 1308 1338 THEN 0 ELSE .prompt_rtn )); 

: 1870 1856 IF .rtn status EQL LIB$_QUICONACT 

: 1872 1888 4 THEN EGIN 

: 1878 1859 4 qualifierl£ confirm present ] = false; 

3 1874 1860 4 rtn_status = SS$_NORMAL; 

3; 1875 1861 END; 

: 186 188¢ | 
; 1878 1 IF .rtn_status EQL LIB$_NEGANS | 
: 1879 1865 THEN 

3 1s ! 4] rtn_status = LIBS_FILFAIMAT; | 
31 1 | 
; i ’ 5 if -rtn_status EQL LIB$_QUIPRO | 
: ie i qualifier€ quit_processing ] = true; 

:1 187 
, 1 i878 RETURN clean_up( .qualifier, .rtn_status, .fab, ,xab_holder); 
: 44 1373 END; ! Confirm criteria evaluation 
; 1890 1876 
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OFFC 00000 ENTRY LIBSQUAL FILE MATCH, Save R2,R3,R4,R5,R6,- 
R7,RB,RI-RIO,R11 

MOVL #LIBS“QUIPRO. R11 

P.ABG 

836( SP) SP 

#44, P.ABG, LCL_XABDAT 

MOVC5 #40, P.ABH. #0,-#88, LCL_XABPRO 

, P.ABI, LCL_NAM 

P.ABJ, LCLIFAB 

$516_1O RET, (FP) 


5B 000000006 8 
5A FEEF ¢ 
FCBC ; 
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0058 =8F 00 2c AA 
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K 16 
C FILE_QUA Common file qualifier 16-Sep-1984 02:23: AX-11 Bliss-32 V4.0-74 
yOon000 LIBSQUAL_FILE_MATCH 13r808- 1382 99:92:35 | HRS Tek esr FE Mal 28S. Page 133 
29 1 3 BEQL $ ; 
04 AC p 4 TSTL ee ap) : 
2 4 BEQL $ : 
5 04 BC p 4 MOVL ; ONTEXT QUALIF IEP t 1619 
iC AG F 4 MOVAB (QUALIFIER), R + 1625 
04 $ 9 E 4D BBC "6 (RB), 1$ : 
0 B : } MOVL R11, R + 1627 
02 C 91 00055 1$ CMPB (AP), #2 t 1632 
$f 1F 000 A BLSSU 6s : 
08 Ac D3 A TSTL (AP) : 
A 1 D BEQL 6$ : 
03 f 91 F CMPB sé AP), #3 t 1636 
1F 62 BLSSU 3$ : 
0c AC 03 00 TSTL  12¢AP) : 
0 13 00067 BEQL 38 : 
008D 3) 9069 3s: BRW $ : 
50 08 AC DO 00 $ $: MOVL  USER_FAB, RO + 1642 
2 ao B 99 TSTW  2¢ROT : 
05 13 0007 BEQL  4$ : 
68 10 88 0007 BISB2 #16, (RB) + 1644 
07 11 0007 BRB 5$ : 
68 10 8A OOO7A 4$: BICB2 #16, (RB) t 1647 
59 24 Ad D0 0007D MOVL 36(RO), XAB_HOLDER : 1648 
68 08 88 0081 5$: BISB2 #8, (R&) > 165 
57 0 DO 00084 MOVL RO. FAB > 1654 
78 11 00087 BRB 8$ ; 1632 
03 6C 91 00089 68: CMPB sé), #3 > 165 
6B 1F 0008C BLSSU7$ : 
OC AC 05 0008E TSTL  12¢AP) : 
66 13 00091 BEQL 7$ : 
0060 &8F 00 6£ - 00 2¢ 99095 MOVCS #0, (SP), #0, #96, S$RMS_PTR + 1667 
60 AE 6002 8F BO 0009C MOVW #24578, $RMS_PTR : 
62. AE 01 8E O00A2 MNEGB #1, SRMS _PTRT ; 
64 AE FFOO CD 9E O00A6 MOVAB RSA_BUFFER, $RMS_PTR+4 : 
6A AE 01 8€ OOOAC MNEGB #1, $RMS_PTR+ : 
6C AE 0144 CE 9€ 00080 HOVAB ESA_BUFFER, SRMS_PTR+12 ; 
0050 8F 00 6E ‘i 00 2c 9086 MOVCS #0,~(SP), #0, #80, SRMS_PTR : 1672 
10 AE 5003 BF 2 OOBF MOVW #20483, SRMS_PTR F 
6 AE 02 90¢3 MOVB #2, $RMS_PTR?22 : 
F AE 90 000C9 MOVB #2, SRMS-PTR+31 : 
8 A 0 AE 3 6 CD MOVAB LCL_NAM, SRMS _PTR#4O ; 
5 Bone * ae D MOVL FILE NAME, R ; 
3c AE 04 Ad p9 0006 MOVL 4 (ROY, SRMS_PTR+44 ; 
44C«C«A 60 DB MOVB (RO), SRMS_PTR+52 ; 
$ 1 BA DF BICB2 #24, (RB) > 1675 
10 Ag E OO0E V LCL_FAB, FAB : 1676 
DD OO0E PUSHL FAB + 1680 
000000006 90 1 F E CALLS #1, SYSSPARSE ; 
4 0D EF MOVL RO, RTN STATUS ; 
O¢ 4 € F BLBS §RTN_STATUS, 8$ ; 
0 4 BO i ROVL RTN-STATUS, RO > 1682 
50 000000006 8F b0 F9 7$: MOVL § #LIBS_INVARG, RO > 1690 
4 00100 RET : 
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C FILE_QUA Common file qualifier 
VOe-006 “ — LIBSQUAL_FIL VMATCH 


ge A2 or 
c A F 
000000006 80 43 
tite HH 
000006006 F 0 
mone 
sf 
71 66 5? 
04 gf 1 
1f 
10 «AC 3 
. 7 
445 F 68 
000000006 8F 0D 
61 11 
06 6c 91 
05 iF 
18 AC 05 
04 12 
43 04 
03 11 
18 AC DD 
05 6c 91 
05 iF 
14 AC D5 
04 12 
7E D4 
05 11 
14 AC OD 
10 AC 0D 
FC31—s CF g FB 
Py) 0 00 
000000006 8F 54 D1 
06 12 
66 01 8A 
54 01 00 
000000006 8F ; o} 
54 000000006 8F i 
5B 4 01 
4 is 
68 40 F 8 
0290 F 88 
6 1 
0280 8F 6B 
1 oO 
6 dD 
F6A4 ~=sCCF 4 FB 
04 
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R 
#*M<R7,R9> 
#L18$_FILFAIMAT 


(EXCL_BLK), EXCL_BLK 
(QUALIFIER), 37$ 
We 


(AP), #6 


PROMPT_RTN 
(AP), #5 


* RIN. STAT 
RIN STATUS, #L1B$_QUICONACT 
#i, (QUALIFIER) 

#1. RTN_STATUS 

RTN_STATUS, #L1B$_NEGANS 
¥LIBS_FILFAIMAT, RTN_STATUS 
RTN_STATUS, R11 


r 
QUALIFIER 
#4, CLEAN_UP 


C FILE_QUA Common file qualifier 1b-se -1984 02:23:47 AX=-11 Bliss-32 V4,0-74 Pa 58 
v04-000 CIBSQUAL. FILE END 1e8een 1 8ks 99:92535 | MS OS EST FE Mba oss. 9°18) 
$ 1 ZSBITL "LIBSQUAL a i? 
+ 944 § GLOBAL ROUTINE LTb$qual_file_end( context ) = 
1899 2 lee 
aR) § } FUNCTIONAL DESCRIPTION: 
308 8 i Clean up any virtual memory which was allocated while processing the 
904 9 : common file qualifiers. 
905 90 ! 
9 : 4 FORMAL PARAMETERS: 
4 38 context address of th> pointer to the qualifier data base 
10 95 1! IMPLICIT INPUTS: 
11 38 ! 
i 9 : None 
1 98 ! 
14 99 ! IMPLICIT OUTPUTS: 
15 00 ! 
16 01 ' None 
17 8 ! 
18 7 ROUTINE VALUE: 
¢ B2 S$S$_NORMAL routine completed successfully 
$8 t4 Any status return from LIBSFREE_VM 
24 09 1 | COMPLETION CODES: 
25 10 ! 
26 11 ! None 
27 \¢ ! 
28 1 ' SIDE EFFECTS: 
$2 14 ! 
0 15 ! None 
31 16 ! 
32 17 ! 
33 18 
19 
2 
2 
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34 BEGIN 
35 
$$ 1 LOCAL 
4 2 rtn_status, ' status returned by external calls 
38 3 qualifier : ref $BBLOCK, ! qualifier data base 
39 4 ‘ ' pointer to the current exclude block 
40 5 next_ ref SBBLOCK, ' pointer to the next exclude block 
41 6 desc_ ref SBBLOCK : pointer to the descriptor for the 
ri} 7 ; ! exclude file spec 
7 
v4 3 : Locate the qualifier data base and the first exclude block. 
47 3 qua'ifier = ..context; 
‘8 : excl_blk = .qualifierl exclude_list J; 
50 5 
3) 33 : Free the virtual memory for each exclude block and exclude file spec. 
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1 

MON FILE_QUA Common file qualifier 1b-5e -1984 02:23:47 AX-11 Bliss-32 V4.0-74 
6 LIBSQUAL_FILE_END 1 ~300 71387 96:92:38 VNSLIB-SRCILIBCQU UAL .832;1 

133 UNTIL .excl_blk EQL 0 DO 

137 EGIN 

i pycete the exclude file descriptor and the next exclude block in the 

194 { 

1944 desc blk = excl _bLkC_excl_spec_desc J; 

1302 next_blk = .excT_blkC next “excl dL blk ji 

Ire Get rid of the virtual memory. 

1949 & ir F NOT ( rtnistatus = LIBSFREE_VM( ZREF(.desc_blk£ DSCSW_LENGTH J), desc_blkC DSCSA_POINTER J )) 

1339 ; THEN RETURN <rtn_status; 

1326 4 IF NOT ( rtn status = LIBSFREE -VMC SREFCexcl_blk_len), excl blk )) 

1327 THEN RETURN <rtn_status; 

1382 Point to the next exclude block. 

1989 excl blk = .next_blk; 

ag gf 

1960 ! Free up the memory which holds the qualifier data base and zero the context 

139) gi i pointer. 

1968 F NOT ( rtn_status = LIBSFREE _VM(C XZREF(qual_blk_len), qualifier )) 

1964 2 THEN RETURN Trtn_status; 

1965 2 

1966 2 .context = 0; 

1967 2 

1968 2R A ga true; 

1969 1€E ! End of routine Lib$qual_file_end 


f=] 
Qo 


1¢ 000 LIB$QU 
54 000000006 00 9€ 00002 MO LIBSFREE-VM, R4 
5E 0C C2 00009 SUBL2 #12, SP 
08 AE 04 BC DO 0000C MOVL @CONTEXT, QUALIFIER 
50 08 AE 00 00011 MOVL QUALIFIER, RO 
04 AE 04 AO 00 00015 MOVL  4(RO), EXCL_BLK 
51 04 AE p09 Ooi, 1$: MOVL EXCL_BLK, RT 
20 1 3 BEQL $ 
52 04 Al 9E 000 MOVAB 4(R1), DESC_BLK 
61 DO 00024 MOVL (R1), NEXT BLK 
04 A2 9F 00027 PUSHAB 4(DESC_BLKY 
04 AE 6 3¢ 002A MOVZWL (DESC “atk, 4(SP) 
04 AE OF 00 E USHAB 4(SP)~ 
64 0 FB 031 CALLS #2, LIBSFREE_VM 
2¢ 5 E 0 LBC  RTN_STATUS, 3$ 
04 AE OF 7 PUSHAB EXCC_BLK 
04 AE oC pO A OVL #12, 74(SP) 
04 AE OF F PUSHAB 4(SP) 
64 : FB 4 CALLS #2, LIBSFREE VM 
1¢ E 44 LBC = RTN_STATUS, 3$ 
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1952 


8 7 
COMMON FILE_QUA Common file qualifier 16-Sep-19 3: AX-11 Bliss-32 V4.0-74 P 
V04-000 CIBSQUAL. FILE END 1eree= 18s 95:82:35 | LOM ee thes ie hha oss. af 
04 AE 53 pO 047 MOVL 4" XT_BLK, EXCL_BLK 
CD 11 4B BRB 
08 Ar oF 4D 2$: PUSHAB ayn 
04 AE 2 bP 2 MOVL ? ¢ 4(SP) 
04 A F PUSHAB 
64 : FB CALLS he. *lapseree VM 
6 E A BLBC TATUS, 3$ 
04 Bt D4 0005D CLRL acontex XT 
50 1 dO gee MOVL #1, R 
04 00063 3$: RET 


; Routine Size: 100 bytes, Routine Base: SCODE + OAFS 


~-EXTRN LIBSSIGNAL 


Name Bytes Attributes 


_LIBSKEYOS Q NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
LIBSSTATES 10 NOVEC;NOWRT. RD. EXE. SHR, LCL. REL, CON, PIC.ALIGN(1) 

SCODE 2905 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
° ‘ 0 NOVEC,NOWRT,NORD *NOEXE.NOSHR, he S, CON,NOPIC,ALIGN(O) 

; Library Statistics 

‘Bra sapere ee ees One te Ber ate Syabols oooe---- Pages Processing 

; File Total Loaded Percent Mapped ime 

> _$255$DUA28:CSYSLIB]TPAMAC.L32;1 42 19 45 14 00:00.0 

> 7$255$DUA28:CSYSLIBISTARLET.L3e;1 9776 137 1 581 00:01.2 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:LIBCQUAL/OBJ=O0BJ$:LIBCQUAL MSRC$:LIBCQUAL/UPDATE=(ENH$:LIBCQUAL) 
pize: 

un Time: 


pe Time: 1:28. 


2296 code + 619 data bytes 
0:50.4 | 
Lines/CPU Min: 234 


ee 


1 
COMMON _FILE_QUA Common file qualifier 16-Sep-1984 02:23:47 VAX-11 Bliss-32 V4.0-742 Page 61 
v04-006 LIBSQUAL_FILE_END 


; Lexemes/CPU-Min: 27783 
3 paaory Used: 333 pages 
; Compilation Complete 
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04% 


AL EQUIPMENT CORPORATION 
DENTIAL- AND PROPRIETARY 


GIT 
NFI 


I 
F 


DI 
CO 


Ndi, AH-BT1i3A-SE 
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